DDDDDDDDDDDD EEEEEEEEEEEEEEE BBB8BBBB8BB8B UUU UUU GGGGGGGGGGGG 
DODDDDDDDDDD EEEEEEEEEEEEEEE BBB888BB8BBBB UUU UUU GGGGGGGGGGGG 
DDDDDDDDDDDD EEEEEEEEEEEEEEE B8BB8BB8BBEB UUU UUU GGGGGGGGGGGG 
DOD | DDD EEE BBB BBB UUU UU G 

DOD DDD EEE BBB BBB UUU UUU GGG 

DDD DDD EEE 888 BBB UUU UUU GGG 

DOD DOD EEE BBB BBB UUU UUU GGG 

DDD DOD EEE 888 BBB UUU UUU GGG 

DOD DDD EEE BBB BBB UUU UUU GGG 

DOD DDD EEEEEEEEEEEE BBBBBBBBBBBB UUU UUU GGG 

DDD DDD EEEEEEEEEEEE BBBBBBBS8EEBB UUU UUU GGG 

DOD DDD EEEEEEEEEEEE BBBBBBBSBBBB UUU UUU GGG 

DOD DDD EEE BBB UUU UUU GGG GG6GGGGGGG 
DDD DDD EEE B88 BBB UUU UUU GGG 6G6G6G6GGGG6G 
DOD DDD EEE BBB BBB UUU UUU GGG 666666666 
DDD DDD EEE 888 BBB UUU UUU GGG GGG 
DOD DDD EEE BBB BBB UUU UUU GGG GGG 
DOD DDD EEE BBB BBB UUU UUU GGG GGG 
DDDDDDDDDDDD EEEEEEEEEEEEEEE B88B8BB8B888 UUUUUUUUUUUUUUU GGGGGGGGG 
DDDDDODDDDDD EEEEEEEEEEEEEEE BBSBBBB8BBBB UUUUUUUUUUUUUUU GGGGGGGGG 
DDDDDDDDDDDD EEEEEEEEEEEEEEE BB8B8BBBBBBBB UUUUUUUUUUUUUUU GGGGGGGGG 


**F ILE**1D**DBGMOD 
ODDDODDD 688888888 GGGGGGGG MM lala 000000 DODDDDDD 
DODODDDD 686886888 GGGGGGGG MM ‘adel 000000 DODDDDDD 
DD DD 6B BB GG MMMM MMMM 600 00 0D DD 
DD 88 BB GG MMMM MMMM 600 00 0D DD 
dd DD 88 BB GG mm 6M UMM «(O00 00 0D DD 
dd DD 88 BB GG A 6M UMM «(O00 00 0D dD 
oD 0d 88888888 GG MM mM 600 00 0D dD 
dO DD 88888888 GG mn mm 600 00 0D DD 
2) DD 88 8B GG GGGGGG MM mm 600 00 0D DD 
dD DD 88 BB GG GGGGGG MM mm 600 00 0D dD 
0d DD 6B 8B GG GG MM mm 600 00 0D DD eee 
dd dD 88 BB GG nal mm 600 00 0D DD cece 
DODDDDDD BBBB8888 GGGGGG MM MM 000000 DODDDDDD eee 
ODDDDDDD 688888888 GGG6G6G66 mM MM 000000 DODDDDDD cece 
LL III] SSSSSSSS 
LL HII SSSSSSSS 
LL I] $$ 
LL I] $$ 
LL I] $$ 
LL I] $s 
LL I] SSSSSS 
LL I] $SSSSS 
LL I] $$ 
LL I] $$ 
LL I] $$ 
LL II $s 
LELLELLLLL T1111 SSSSSSSS 
CLELELELLL HI! SSSSSSSS 


2 


~Sep-1 VAX=11_BLiss-32_v4.0-74 Page 1 
“bate 2:43:68 — DISkSumsmaSteRscbeGuG. Sec20BGNOD.832¢1°° (1) 
 RODULE DBGHOD (IDENT = ‘vO4-000") = 


‘e 

ie COPYRIGHT (¢) 1978, 0282 1982, 1984 BY 

ie biGI TAL EU PRENT PORATION, MAYNARD, MASSACHUSETTS. 
ie ALL RIGHTS RES mt Con 


* 

a7 

* 

& 

® 

& 

1 ie pl SOFTWARE IS ryan seo UNDER A LICENSE AND MAY BE USED AND COPIED * 
1 ie ; Pa ge WITH THE TERMS OF SUCH iCoNse AND WITH THE ® 
1 Hd is eel OF THE ABOV COPYRIGHT NOTICE. THIS WARE ANY OTHER ®¢ 
1 ie A bas a MAY ” BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
1 +@ PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
; ee TRANSFERRED . ° 
‘e ® 

1 :* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE ®* 
1 :* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT ®* 
1 ;. CORPORATION. e 
4 & 

'@ DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 

t@ SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. : 

*& 


WITTIIIIIIILL LLL LLL LLL LLL LLL LLL LiL iii ii iii iitii iii 
i 


CNA MAS WN $$ O OOVNOAUR SU“ OOOVNOU EWN 


; FACILITY: DEBUG 
i¢e 
: FUNCTIONAL DESCRIPTION: 
§ 00 ' ABSTRACT: 
i Version: 1.08 
5 5 


i Wistory: 
! uthor: 
Carol Peters, 03 Jul 1976: Version 01 


$ 5 
40 ? Modified b by: 
41 Mike Candela, 18 October 1979 
2 § : Richard Title, 12 AUG 1981 
44 4 i Revision histor 
3-00 21-Aug-81. 


RT Added syrpoct, fe foe SET STEP SOURCE and 
$ SET STEP 
! 3-3 nck 1 al Added support re. SEARCH ¢ 
-02 i ; RT Added support for SET "DEFINE _ SHOW DEF INE 
17-Aug- PS Added mode G/NOG_FLOAT 


a a a a a at tt at ts tt a ts ~~ 4 2 2 2 


Mee 
Oooew 
See 
SCOCONOMU 


2 


3 O { TABLE OF CONTENTS: 

nA if FORWARD ROU 

s it dogs init_no modes: NO . 
DC dbgsset mod_ivi: NOVALUE, 
DC dbgsset- “mod-def: NOVALUE. 
4! cpesinge how ene ALUE, 
if stet- He def: NOVALUE , 


Se 


a 


< 
HC 


oe 


db Sset _log: NOVALUE, 
. Stoseeri ty. out: NOVALUE; 
REQUIRE FILES: 


REQUIRE : SRC$: DBGPROLOG REQ’; 
LIBRARY *LIB$:DBGGEN.L32'; 


EXTERNAL ROUTINE 
Seztee.out: out: NOVALUE, 
dbgseul ines WOVALUE, 
abgsnger trans_radix, 
0B 


SANSA H UNIO Oe us Ao o> ote 


wre 


wu 


a a ad nS nt 
ee ee ee eee Ss 


Or19be 42:17:08 — DISKSVMRMASTERSCDEGUG. ShCIDBGNOD.B32¢4°" (25 


SETS MODES TO A SPECIFIED Level 


SETS DEFAULT poss TO hf rg gd values 
ACTION ROUTINE TO SHOW D 

SETS step LEVELS AS SPECIE TED 

seee'? step owe TO INITIALIZATION VALUES 


O° SHOW s fep 
resets search levels to Sin ial 
sets search levels as specified 
set level of searc 
action routine for show search 
resets define levels to initial 
sets define Pp bE as specified 
set level of ne 
action ies for show define 
Sets default OUTPUT § — 
Displays OUTPUT conf igura ion 
Set a new LOG file n 
Creates & opens log "tite 
Decides whether to VERIFY input 


allocate block of free storage 
output a line 
returns translation of default radix 


i 
‘ 
§ $cONV- ° converts from radix 
0 dbg$print: a put a line in the euteut buffer 
9 1 dbg$rel_memo : NOVALUE, return storage to free pool 
+ § dbgsshou rad reste: “NOVALUE ; 
4 4 EXTERNAL 
9 5 DBGSGB_KEYPAD_ He BYTE, 
94 $ DBGS$GL- SCREEN 
95 DBGS$GB_DEF esp LOCKVECTOR 
4 3 STEP_LEVELS, EVENTSK_STEPPING DESC_SIZE) 
9 LO EVENTSSTER G~DESC_FIECDS),~ 
98 DBGSGB_STP_PTR : REF EVENTSSTEPPING DESCRIPTOR, ! current stepping 
GY 1 dbg$gb_ def search VECTOR BYTE), : Block for SEARCH yo 
1 j dbgsob_search ptr tr: REF VEC ér gYTEI. i poin ater te poarch setting 
101 dbg$gb-def_d VECTOR {, BYfe), i Block for DEFINE sett nen 
1 3 dbasab SER: EF EcTOR , BYTE), | inter to define settings 
1 5 b_d CTOR {, BYTEJ, ' BLOCK FOR MODES 
1 ste ise f"ou VECTOR BYTE ° ' Vector for output config 
105 dbg$gl-c shead: REF cis link, i Head of cis 
1 3 cpgeep-verptr : REF VECTOR Bites. ' Verify pointer 
10 $gb_ r: REF VECTOR CL, BYT ' pointer TO MODES 
108 40 dbg$gl_ wrontent : BITVECTOR, ' CONTEXT WORD 


2 


1B-seo-1984 91:34:68 VAX-11 Bliss-32 V4.0-742 


oe 
The following table holds the valid mode settings and values 
relevant to them. Each entry in the table is three bytes long. 
— has three fields, each of them one byte 
ong. 


! keyword ! offset ! value ! 


mode, @.g., byte_token indicates that the mode is ° 

The offset field holds the location of the mode setting in any of 
the mode levels. 

The value field holds the value that represents a particular mode 
to DEBUG in an internal sense. 


ITERAL 
| ney field 
offset_Tield 


! 
i 
i 
i 
i 
i 
i 
i 
q 
: The keyword field holds the token value that regresenss the particular 
' 
i 
i 
' 
i 
L 


? 
value_field 


mode_éntry_len 
step_entry_len 


search_entry_len = §; 
BIND 

deflog_name = UPLIT BYTE(ZASCII ‘DEBUG.LOG'), 

deflog_size = ZCHARCOUNT(ZASCII ‘DEBUG.LOG'); 


! build qrr desc creates a descriptor that contains the filespec for RMS error 
! reporting using the shared message file 


MACRO 


SIN NNN NNO OOOOOOO PUPPIES BP EE 


FUN OOOO MNE WN S$ O ODNOAUNE WN “OC OONOUS wry 


build_err_desc (msg_desc) = 
IF .dbg$gi_log_buf NEQ 0 
THEN stitial 

BEG! 


N 
msg_desc Fdsc$u_tength) = 
asgdesc dsc$a_pointer] = .dbg$gl_ 


eee ee eS ST eee SS 


SOOOOSOOOOOOSOOSOOSOOOSOSSOSOSSSOSOSOSOSOSOSSSOOSOSOOOOCOOOOOCOOOOOOOOOOOoOO 


ee ee me me ee ek td ed od = = = a a a = 


PEP ES EES | 
LESFENLSSS 


P 
~Sep-1 D1SKSVMSMASTER: CDEBUG.SRCIDBGMOD.832;1> (2). 
dbg$gb_language: BYTE, ! contains index to current language | 
"9 Gpasattoguen’s REF SHAM DECL, i NAM Block for 106 file — 
1 dbg$gi"logfab : BLOCK f-8Y ° ' FAB for LOG file 
1§ bg$gi_lograb : BLOCK [,BYT ! RAB for LOG rite 
1 Sgb-logftsr : REF VECTOR “BYTE, i Resultant LOG filespec buffer 
16 $ dbg$gb_logfse : REF VECTOR [,BYTEJ, ! Expanded LOG filespec buffer 
15 dbg$gl_log_buf, ! pointer to buffer containing 
1$ 3 ! filespec from SET LOG cmd. 
1 DBGSOPCODE_KIND_TABLE: VECTOR(C512,WORD) 
18 DBGSOPCODE-NAME- TABLE: BLOCKVECTORL,10,8YTEJ; 
LITERAL 
dbg_mod = 0, ' DEBUGGING AID FOR mode 
i dbg_mod1 = 0, i DEBUGGING AID FOR step 
é dbg_mod2 = 0; : * log file 
0 


3 


iSoseoct9ge O1:Bk:g2  vanedt elses 32 y 


: 


4.0-742 Pp 4 
EBUG.SRCIDBGMOD.B32;1 (2). 
ELSE | 


msg_desc (dsc$w_length]_ = .dbg$g 
g$9 


L_logfab (Cfab$b_dns]; 
msg_gesc dsc$a_pointer] = .dbg$gl_logfab [fab$l_dnaJ; 


! signal_rms_err reports RMS errors caused by SCREATE, SOPEN or SCONNECT 


SSISWSIAASNTVSSELS. 


sts = .dbg$gl_lograb Crab$l_sts]; 
stv = .dbg$gl_lograb Crab$l"stvJ; 


i signal_rms_err (block_type) = 

i] BEGIN 

4 LOCAL 
“ msg_desc : BLOCK (8,BYTE], 
M sts, 
. stv ; 
” build_err_desc (msg_desc) ; | 
™ IF block type EQL | 
™ THEN | 
ial BEGIN 
ial sts = .dbg$gl_logfab ffabst sts): 
ial stv = .dbg$gl_logfab [fab$i_stvJ; 

m END 

” ELSE 
M BEGIN 
4 
4 

4 

Lt} 


END; 
SIGNAL (shr$_openout+dbg_fac_code, 1, msg_desc, .sts, .stv); 


! restore_nam restores an RMS NAM block | 


i a a a a a a ae a ad ed ood 
OD: 
wr 


VUSSHONS NAR W—OSS VEAP WU OSBIERE WO ODO RU 


restore_nam = 
BEGI 
LOCAL 
err, 
type_b; 


! release storage for the aborted log file 


BAAN AN AAA RTRINIRINININITUNIUN SS 3 Ss a 
DODWNANEWN —OOONAUN EWN (COON OUL WN COO 


a a a a a ad td a a at a ot = a a 1 8 ts 


1 dbg$gi_Tognam = .old_nam_ptr; 
§ old_nam_ptr = 0; 
dbg$gl_Togfab [fab$l_nam) = .dbg$gl_lognam; 
4 dbg$gl_logfab [fab$l_fna] = .fna; 
5 dbg$gl_logfab [fab$b_fns] = .fns; 
; dbg$gl_logfab (fab$v_nam] = 1; 
8 dbg$gl_logfab [fab$v_cif] = 1; 
4 b Cfab$Sv_mxv) = 0; 
4 


DAMIAN 


signal_rms_err (.type_b) ; 


IEosen-1944 1:79:88 DTScbumGhaStenscheauG. Sec IpeGHon.032°4% a 


dbg$gb_def ; 
ores? -def_out Cout_log] = .log_temp ; 


9 
1b-se -1984 01:34: VAX-11 Bliss-32 V4.0-742 P 6) 
12-80 8= 1c 4:35:68 DISKSVMSMASTER: DEBUG. SRC IDBGMOD.B32:1> (3) | 


0 
\ 


< 


TITLE et ve 
IDENT \V04-000\ 


-PSECT DBGSPLIT.NOWRT, SHR, PIC,0 


; $ p 34 ! GLOBAL ROUTINE dbgSinit_modes (goal_level, source_level) : NOVALUE = , 
; 8 ; 1 ! FUNCTIONAL DESCRIPTION: $ 
; 9 ne Sets all levels from local level to the goal level specified : 
3 : o ! } with the mode settings of the source level. : 
; 2 0868 1 | FORMAL PARAMETERS: ; 
; 8 64 1! goal_level - highest Level to set ; 
; ¢ B : : source_level - level from which to obtain mode settings : 
; 89 1 ! IMPLICIT INPUTS: : 
; V4 1! none : 
3 8 69 1! : 
; 9 8 70 1°! IMPLICIT OUTPUTS: : 
; 240 ae THE mode settings of the local level to the goal level $ 
; re 8 i : are reset to the mode settings of the source level. : 
: ag 0374 1 ! Routine value: : 
5 4G 0375 1! NOVALUE : 
: 245 0376 1! 3 
; 246 0377 1°! SIDE EFFECTS: : 
> 247 Bere 1! NONE 3 
: 248 0379 1 !-- F 
; 249 0380 1 : 
; 250 0381 BEGIN : 
; 251 OES 3 
; 25 038 LOCAL 3 
3 € 0384 temp_level: REF VECTOR C, BYTE]; 3 
; 254 0385 3 
3 <2? L Bene Z1F dbg_mod 3 
; $28 U 0387 THEN 3 
; ao u 0388 $fao_tt_out (‘copying level !SL modes to level !SL thru !SL", F 
: 258 U 0389 -source_level, .goal_level, local_mode); 3 
Bue gn ; 
; 261 $44 sonp_.teyei = dbg$gb_def_mod [.source_ level * mode_lvl_size); : 
3 oe Beaz DECR™ I — Local node TO .goal_level DO : 
; 2646 Bea dbg$gb_mod_ptr = dbg$gb_def_mod [.1 * mode_lvl_size); 3 
: 265 38 dbg$gb_mod_ptr [mode_radix)"= .temp_level [modé_radix); : 
3 266 039 dbg$gb_mod_ptr mode_ length} =".temp_level Cmode_length); : 
; 267 Bene dbg$gb_mod_ptr (mode_symbols] = .temp_level (mode_symbols]; ‘ 
; 268 99 dbg$gb_mod_ptr noge.g, foats = ,temp_level ([mode_g_ floats); i 
3 9 69 dbg$gb_mod_ptr [mode_ nese c] = .temp_Teve Cnode ing rucJ; F 
3 0 1 dbg$gb_mod_ptr [mode_asc i} = .temp_lével (mode_aSciil; } 
s eri 208 dbg$gb_mod_ptr Lmode_scope) = .temp_level — pongo : i 
3; af 0 dbg$gb_mod_ptr node_gl als] = .temp_level mpde globals); ‘ 
ee. 04 dbg$gb_mod_ptr [mode_immediate] = .temp_level [mode_immediate); ; 
3; 276 0405 dbgsgb_mod_ptr mode_fortran] = .temp_level ([mode_fortran); i 
: 275 Boos END; i 
3; 276 0 END; i 


| 9 
1§- -Sep- 73 VAX=11 s-32 V 742 7 
ital 14- ~Sen- 198 93: 73 86 DISK$V nen TER: beau. SRCIDBGMOD. B32" (3) 
47 GF 4C 2€ 47 5S 42 45 44 00000 P.AAA: . ASCII \DEBUG.LOG\ | : 
DEFLOG_NAME= P.AAA 


“ .EXTRN DBGSFAO_OUT, DBGSGET_MEMORY 
eEXTRN DBGENEVCINE DBGSNGET TRANS. RADIX 


.EXTRN DBG$ 

sEXTRN DBGSREL Vacmort DEGSSHOW_ RADIX 

*EXTRN $GB_REYPAD “Ine 

.EXTRN ppescr “SCREEN-MO 

JEXTRN DBGsGé “DEF _STP DBGSGB.. STP_PTR 

SEXTRN DBG$GB~DEF SEARCH 

-EXTRN DBG$GB_SEARCH PTR 

-EXTRN DBGS$GB_DEF_DEFINE 

-EXTRN DBGSGB_DEFINE PTR 
-EXTRN DBGSGB_DEF MOD, DBG$GB_DEF OUT 
-EXTRN DBGS$GL “C1SREAD, DBG$GB_VERPTR | 
-EXTRN DBGS$GB_-MOD_PTR, DBGS$GL_ CONTERT | 
-EXTRN DBGS$GB_LAN NeuAc 


G 
-EXTRN DBGSGL-LOGNAM, DBGS$GL_LOGFAB 
EXTRN DBGSGL-LOGRAB, DBG$GB_LOGFSR 
-EXTRN DBGS$GB_LOGFSE, DBGSGL_ “toe _5UF 
-EXTRN DBGSOPCODE_KIND_TABLE™ 
-EXTRN DBGSOPCODE-NAME_ TABLE 


-PSECT DBGSCODE,NOWRT, SHR, PIC,0 


001¢ 00000 .ENTRY DBGSINIT_MODES, Save R2,R3,R4 : 0357) 
54 000000006 00 9E 00002 MOVAB DBGS$GB_DEF_MOD, R4& : | 
53 000000006 00 9 00009 MOV DB D-PTR. R3 ; 
50 08 AC OA C5 00010 MULL + gpOuRCE LEVEL. RO ; 0392 | 
52 50 54 €1 00015 ADDL 4 TEMP_L : 
50 03 DO 00019 MOVL 74 : 0405 | 
1A 11 0001C BRB 2 : 
51 50 OA C5 OO01E 1$: MULL 10, I, R1 : 0395 | 
63 51 4 €1 0002 ADDL3 R4, RI. DBGSGB_MOD_ PTR ; 
51 63 DO 00026 MOVL DBGSGB MO MOD_PTR> R17” : 0396 
61 6 D6 90 9 MOVL (TEMP_CEVED), (R1) : 
04 «Al 04 A2 BO 0002C MOVW  4(TEMP_LEVELS, 4(R1) + 0401 | 
06 Al 06 =A D9 0031 MOVL  6(TEMPTLEVEL). 6(R1) : 0403 | 
50 07 000 DECL «sid : 0393 
04 Ac 50 D1 00038 2s: CWPL I, GOAL LEVEL : | 
04 So08s RET + 0407 


3; Routine Size: 63 bytes, Routine Base: DBGSCODE + 0000 


v0e- 000 18-00-1984 MTFi68 — DESKdUMGAASTERcCheBGG. SecaBcnon.e3264%" «a8 


ee 


i THE FOLLOWING ROUTINES CONTROL INTERPRETATION AND TYPEOUT MODES. 


epee es waa ty Hd) a DATA hag! Te CONTROLLED id FOUR MODE 
SETTINGS, THEY A ULT_MODE’, H IS THE MODE SET BY 
DEBUG INITIAL IzAtion;. Soesr “de f ‘node’, Outen I$ "ncn is 


COMMARDS 
THE MODE SET BY A SINGL ub INE sbveship DE C 
SET FOR A SINGLE VARIABLE. 
WHICH Rope 1§ USED pEPENDS ON Fae pointer INTO THE BLOCK 
dbg$gb_def_ d. 


AT INITIALIZATION TIME THE FOUR MODE SETTINGS ARE INITIALIZED 
TO THE SAME values. WHEN THESE values ARE CHANGED BY USER COMMANDS, 
SOME PROPAGATION OF MODE values MUST MOVE yee AND DOWN THROUGH THE 


THE ROUTINES THAT FOLLOW SET THE MODE BLOCK pointerS TO THEIR NEW 
value AND PROPAGATE values AS NECESSARY. 


THE GENERAL syoareey IS AS FOLLOWS: 
DEFAULT_MODE SETTINGS = NEVER CHANGED 
user_deT_mode pt RE NEVER CHANGED AS A Fag on r pginter JIGGLING. 
T E ONLY CHANGED CHPLICITLY IN ACTION R 
override mode SETTINGS ARE CH i REFL oh “USER-SET TREE RULTS 
Y ARE THE OBJECT & ou poin 
local_mode SETTINGS on COPIED FROM _ Sener see nels SETTINGS WHEN THEY 
ARE THE OBJECT OF ne pee 
WHEN THE pointer IS MOVING UP THE Brock AR taeek mode TOWARD 
T_MODE, NO values ARE PROPAG 
SETTING OF Local_mode AND override mo MERA ULT SETTINGS AT THE END OF 
2 coveee & LINE IS THE ExPrTeir: RESPONSIDT LITE OF EOC ACTION 


FRRRELELLRLLRERRRRRRRRRKEE 


WIS OOo NOs Cero OS OO WAP ODee 


aa ed td od od = = td = = 


Be Se Se Oe Oe Se Se Se Se Ge Ss Ge Se FH Ss Se SF Se Ss Oe Se Oe SH Ss Ss Os Oe Ss Oe Se Se OH Os BH Os 
te et eee te te te te te i? oe i? tf? i? tt tt? tt tt tt tt te te te te ee ee ee eee 


Pr ruw WAAL AAAIP RIPPIN PINIDINUD 
NV =OSR ARO 


RELRRRKKKK 


1$-sep-1964 01:54:22 
te ROUTINE dbg$set_mod_ivi (level) : NOVALUE = 


i FUNCTIONAL DESCRIPTION 
i SEE DESCRIPTION ON PAGE 2 


FORMAL PARAMETERS: 
level = The structure level to set the pointer to. 
Local_mode 
IMPLICIT eats 
NON 


IMPLICIT OUTPUTS: 
NONE 


Routine value: 
NO value 


SIDE EFFECTS: 
NONE 


BEGIN 


LOCAL 
temp_level: REF VECTOR C, BYTE); 


If (dbg$gb_def_mod[.level * node, lvl size] LEQA .dbg$gb_ 


( 
OR (. level EQL user_def_mode) 
THEN 


SELECT .level OF 


RELRLLKLLRLKRRELRLLLES 
SSLSSLISLSSSVSARRAV ALS SSVSARANASSSISALERVISSSVSLFUNALSSSLSGES 


PROROROPORORO WLIO II ORION INI IU IAIN 2 tt ts 


Clocal Pode}: 


seesanh sui SPURR etal 


MEUM —OOONAUES WN 9 OONOUS WN —O 0 Veurn— NAVE WN OODNOUE 


TES; 
dbg$gb_mod “ptr mode_radix) = .temp_level (Cmode_radix]; 
dbg$gb-mod-ptr (mode~ = Length) =". temp_level Cmode_length); 
dbg$gb_mod_ptr [mode_symbols) = .temp_level Cmodé_symbol 


ooew 


VAX-11 Gliese -32 v4 


DISKSVMSMAST 


mod_ptr) 


BEG 
dbgSgb_nod_ptr = dbg$gb_def_mod [.level * mode_lvl_size]; 
RETURN 


s): 


0-742 
“CDEBUG.SACIDBGMOD.B32;1°" ( 


SET 
rover SECIN 
level = dbg$qb def_mod Cuser_def_mode * mode_lvl_size]; 
db db936 Gb_mod_ptr = dbg$gb-def_mod Coverride_mode * mode~lvl_size); 


g$gb_def_mod Clocal_mode * mode_(vl_size); 


So 
So 


ou@moc 09-9 OO 9 O90 9 FO OAOIOOoOvWoOo 
SSs 

F_ + 

<< =z 

bax 

=< 


50 


ab a 
n = 
Std 
o oon 
Smo 
v= 
ee 


a 
o 
35 
v 
r 


= 
wn 
< 
ag 


OWN Uwe — OF SNOW POOO 


oOo 
Nm 
> SS22. AOvViyP POW MOMOVUMOPOO 


FPRPBSOVOM O81 
= MO WHO 


04 


06 0 


FOOOCOM ON MMM FOND “OmMmommna 
SOOoOoooooooooooooooooooooo 
SOOOOOGOOCOCCOSCOCCOOOCOOOCOoOoOoOoeoo 


MEE Pw 
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; Routine Size: 83 bytes, Routine Base: DBGSCODE + 003F 


-Sep-1 234: VAX-11 B Mise =32 v4.0-742 

1$-$e0-19 93:95:88 DL SKSVMSMA TER: CDEBUG. SRC IDBGMOD.832; 
; 371 dbg$gb_mod_ptr [mode_g_floats] = .temp_level (mode_g_ floats); 

3; 37 dbgseb-mod Btr note. “Taste sprue cls seta Cmode_T 1h Struci: 

3 § dbg$gb_mod_ptr [mode_asc = ,temp_lével (mode_ a8c 11: 

; 374 dbg$gb_mod_ptr [mode_ aoe : 3 _ temp. level de. arr 

3 Sf? dbg$gb_mod_ptr a = ,temp_ corer mode obals); 

: 3? 5 dbg$gb_mod_ptr [mode aned a ej] = tefip.te ore mode. Tamediate): 

3 A : gbgsob. mod_ptr [mode_fortran] = .temp_lével (Cmode_fortran); 


DBGSSET_MOD abv. ave R2,R3 

DBGS$GB_DEF_M am: 

LEVEL 6$68 B_MOD— “pir 
FiO, base 

RS. R 

iy ~ Salapl 
, #1 

eS 

RO, DBGSGB_MOD_PTR 
» #2 

oH 


DBGS$GB_DEF _MOD+10, TEMP LEVEL 
ce DEF-MOD+20, DBGSGB_MOD_PTR 


MP_LEVEL 
DBGSGB MOD_PTR 


Pyar 0 


9 
18. $ep-1984 01:34: VAX-11 s-32 V4.0-742 11 
ea een hee US T5Gs eee Ghle tee hea GG Sacapecnon.esent”* co) 


GLOBAL ROUTINE dbg$set_mod_def : NOVALUE = 


' FUNCTIONAL D scaget ign: 

: CANCELS USER SET DEFAULTS FOR MODE SE 
RESE § ALL MODE ggyets TO LANGUAGE DE 

Called from oye INIT_DEBUG as part g 


INGS. 

ULTS. 

the 
alization phase of DEBUG. 


TT 
t th 
once-only init UG 


FORMAL PARAMETERS: 
NONE 


FUFVSUSUSUSUSVSUSIS 


IMPLICIT INPUTS: 
THE DEFAULT MODES 


i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
IMPLICIT Es gorerss 
i 

i Routine value: 
NOVALUE 

i 

i 
ie 


SIDE — 


BEGIN 


'¢ 
_Set up the MODE data structure 


3 


pain mod_ptr = dbg$gb_def_mod Cdefault_mode * mode_lvi_size); 


1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 
dbg$gb_mod_ptr (mode_radix] = dbgSk_default; 
dbg$gb_mod_ptr (mode_ “symbols = =! Ong. Length; 
dbg$gb_mod_ptr ([mode_ -3y" ol 
dbg$gb_mod_ptr [mode— toats3 = Trarée 

dbgsab mod_ptr a ai 


9 = = FALSE; 
dbg$gb_mod_ptr [mode_scope UE; 
g$gb_ =9!o obals]) = FALSE; 
dbosab_ mod_ptr [mode_ anod*ene2 © = TRUE; 
dbg$gb_mod_ptr (mode_fortran 
dbgs nit_modes (user_def_mode, delenit _mode); 


NOUSWN Oo 


= FALSE; 


ae ad a tN Nt 


forenoon 
Wnm—OO0o 


DUP PUDPVPVDUPULUSUSU SUSU SSUES SISTA 


UWE EEE 


SOQCGCOOOCOOSOSSSOOOSOSOOOOOOOOOOOOOOO OOOO OOOOoOOoOO 


PY tt tt ot ot at 
=DOBNAULWN OO 


w 


-ENTRY DBGSSET_MOD poe. me R2 
MOVAB DBGS$GB_ 


é “rn 7 . p ROVAB —DBGSGB_DEF ie “hop. DAGSGB_MOD_PTR 0538 

6 ong F OD 18 mOvL OR 395-M0 CRO) : 

BOA sooth F Be 90020 MOVE a 4g Mo, : 03? 
7E 1 74 $8 MOVG » (SP) : 0550 


ray HEoseo-19He O1:Fg2 yaNedt eLsae32 vesOo742 a, aa Page 12 


FFSE 86 CF 02 £B Rodee cays #2, DBGSINIT_MODES 


; 0551 
; Routine Size: 49 bytes, Routine Base: DBGSCODE + 0092 


eee ae ar eee ee rer 
ibeseon toes O1te:ge 


X-11 Bliss 
SKSVM SMASt ER CbeGuG sac JDBGMOD. e32:1"* 7 


3 6 5 ; ! GLOBAL ROUTINE dbg$show_mode : NOVALUE = 

: 6 % ii FUNCTIONAL DESCRIPTION: 

: 4 é TION ROUTINE TO SHOW MODES 

: i . 

; : FORMAL PARAMETERS: 

a’ 60 1 { IMPLICIT INPUTS: 

: 4 4 $e ; THE POINTER TO THE CURRENT MODE STRUCTURE. 
; 4 $3 1 IMPLICIT QUTPUTS: 

; 6 65 13 

3; 6 $8 1 ! Routine value: 

: 440 4, ! ; NOVALUE 

: 46 63 1 | SIDE EFFECTS: 

; 463 370 1 THE MODES ARE DISPLAYED ON THE OUTPUT DEVICE 
: 645 7 "BEG 

: 446 33 freer natu" BYTE(ZASCIC ‘modes: '));: 

3 rei 378 dbg$gb_mod_ptr{mode_symbols) 

: 669 376 idbgse Sprint(UPLIT BYTE(ZASCIC 'no')); 

: 4650 57 1Prer ss mecuRLIT BYTE (ZASCIC at tek 

3 $23 278 $gb_mod_ptr[{[mode_g_floats 

: 6 5 “ path BYTE(ZASCIC 'd_float, ')) 
: t3z a8 ELSE oe 

: 655 38¢ dbgSprint(UPLIT BYTE(ZASCIC ‘g_float, ')); 
3 $2 ; THEN -dbg$gl_screen_mode 

; 4658 peas bgSprint(UPLIT BYTE(ZASCIC *no")); 

: 4659 386 aca Mt(UPLIT BYTE(ZASCIC ‘screen, '5); 

3 ree 14 -dbg$gb_ Rated input 

: 46 589 ‘dbgsor print(UPLIT BYTE(ZASCIC 'no')); 

: 46 590 dbgSprint(UPLIT BYTE(ZASCIC ‘keypad')); 

+ 664 591 dbgsnew Line 

; 665 238 gogsshou. radix(0): 

3 466 059 


-PSECT DBGSPLIT,NOWRT, SHR, PIC,0 


20 3A 73 65 64 6F 6D 07 00009 P.AAB: .ASCII <7>\modes: \ ; 

of f 2 oot) P.AAC: .ASCII <9 \no\ ; 

20 2C 63 69 6C 6F 62 6D 79 A 14 P.AAD: <ASCII < JOx\synbotic, \ : 
9 C 74 61 6F 6C 66 3 64 09 Ol P.AAE: .ASCII <9 loat, \ ; 

C 74 61 6F 6C 66 SF 67 09 P.AAF: .ASCII <o>\g7 float, \ ; 

6F $f P.AAG: .ASCII <2>\no\ ; 

20 2C 6E 65 65 72 63 P.AAH: .ASCII <8>\screen, \ 3 

F of F P.AAI: .ASCII <2>\no\ 3 

64 61 70 79 65 42 P.AAJ: .ASCII <6>\keypad\ ; 


9 
WESeoctges QU:H5:42  WMBcHABhteR?chls8e"4Z- soscnoo.0sc%t cf 


«PSECT DBGSCODE,NOWRT, SHR, PIC,0 


001¢ .ENTRY DBGSSHOW_MODE, Save R2.R3,R4 : 0552 
000 99 MOVAB DBGSGB_MOD_PTR, R4 : 
100006 MOVAB © DBGSPRINT, “RS : 
DOC F MOVAB P.AAB, Re . 
¢ 0b PUSHL é : 0573. 
3 F CALLS #1, DBGSPRINT : | 
64 0 MOVL DBGSGB_WOD_PTR, RO : 0576 
02 ad § BLBS (RO), 71 : | 
Ae OF PUSHAB : 0576 
63 01 FB CALLS #1, DBGSPRINT : | 
Ae OF 1$: PUSHAB P. : 0577) 
01 F CALLS #1, DBGSPRINT : | 
64 0 MOVL DBGSGB_MOD_PTR, RO : 0578 
09 8 3 BLBS (RO), 28 ; | 
6 Ae OF PUSHAB P.AAE > 0580 
03 11 BRB 38 : | 
20 A2 OF 3s: PUSHAB P.AAF > 0582. 
5 FB $: CALLS #1, DBGSPRINT : | 
000000906 3 BLBS DBGSGL_SCREEN_MODE, 4$ ; 0583. 
A Ae OF 8 PUSHAB P.AAG ; 0585, 
$5 aOR OF Booce 4s: Pusha PAAR eT 0586. 
63 ( Fe ; CALLS #1, DBGSPRINT ; | 
000000906 3 0054 BLBS  § DBGSGB_KEYPAD_INPUT, 5$ : 0587. 
6 A2 oF PUSHAB P.AA : 0589 
= 39 k> OF booel SS Sista PAA : 0590. 
$3 Of FB ee! CALLS #1, DBGSPRINT : | 
000000006 00 FB CALLS #0 : 0591 
E D4 CLAL. = : 0592. 
000000006 00 01 FB CALLS #1, DBGSSHOW_RADIX poo 


3; Routine Size: 120 bytes, Routine Base: DBGSCODE + 00C3 


voe~000 iS seo-t98e Mb:T5i68 — DTSkSVNgMASTERscDEouG 6: Shcaoecno0. eszei* «b> 


3 iss } GLOBAL ROUTINE DBGSINIT_STEP (GOAL_LEVEL, SOURCE_LEVEL) : NOVALUE = 
: 6 9 i FUNCTIONAL DESCRIPTION: 

; 47 : set s all levels from override level to the goal level specified 
3 of ; with the step settings of the source level. 

: 674 ii 

+ 675 1 i INPUTS: 

; «47 iB: goal_level - highest level to s 

3 $f ; sourte_level - level from which to ‘ sotain step settings 
; 4 1! IMPLICIT INPUTS: 

3; 6 1! none 

: 681 1 

: 6 1} ouTPUTS: 

3 ; : : NONE 

: 485 1} IMPLICIT OUTPUTS: 

3 rt] 1 3 THE step settings of the override level to the goal level 
3 re 14 : : are reset to the step settings of the source level. 

: 489 1! Routine value: 

: 490 1i NOVALUE 

: 491 1 i 

: 49 1 ' SIDE EFFECTS: 

: 49 1 NONE 

3; 6946 1 t= 

: 495 BEGIN 

3 rh | LOCAL 

; 497 TEMP_LEVEL : REF _EVENTSSTEPPING_DESCRIPTOR; 

: 499 TEMP_LEVEL = DBGSGB_DEF_STP C.SOURCE_L 

; 200 EVENTSA~ Battiite _DESCRIPTOR 

; i DECR 1 FROM OVERRIDE_STEP TO * GOAL LEVEL D0 

; 504 DBG$GB_STP_PTR = PBGSGB_ DEF_STP C.1, VENTSA_STEPPING _DESCRIPTOR; 
3 205 DBGS$GB~ STP cere R CEVENTS y “STEPPING LINE 

; 06 0 STEPPING LINE); 

: 50 DBG$GB Brae BvEe CEVENT Ty Stepping ROSYSTEM) = 

3; 508 . TEMP_CEVEL CEVENTSO STEPPING NOSYSTEM); 

; 509 DBGSGB_STP pre Asi VENTSY STEPPING OVER] = 

+ 510 .TEMP_CEVEL CEVENTSO_ STEPPING OVER): 

> $11 DBGSGB_STP pvet C VENTSY st PPING SOURCE) = 

31g 3 pecscer ciP YR CEVENTEY STEPP ioc ROSITENT: = 

; 14 9  TEMP_CEVEL CEVENTSO_STEPPING_NOSILENT); 

; 6 ¢ DBG$GB_STP_PTR CEVENTSB_STEPPING KIND) = 

2 3t i pecan crP YR CE vente CSIEPINGAEINDI: 

° = 

; 19 5 . TEMP_CEVEL EVENTSC STEPPING. OP LIST); 

; $f 5 oo; 


re 1:75:58 © DEEKSvnsmaSteRscoeduG.ScIBcHoD.83261%" «a i 


003¢ .ENTRY DBGSINIT_STEP, Save R2,R3,R4,R5 7 0594. 

$ 900000006 90 ROVAB DBGSoB_DEF st f ; | 

4 G MOVAB DBGSGB-STP-PTR, R& : | 

9 A MOVL souace LEVEL 3 5. 

654 MOVAQ DBGSGB-DEF_STPCRO], TEMP_LEVEL : 0627. 

2 ? i port , oa $ 5 

654 1$: MOVAQ  DBGSGB_ Der ett] DBGSGB_STP_PTR + 0630 

D MOVL DaGSGB- STP R + 0631 

01 49 01 01 al F NSV (TEMP prLEVEL) 0 . 1cR0) 3 2 
5 61 EF XTZV wl, aT . : 
$0 1 0 INSV RB, eit, P : 

61 1 EF EXTZv. #9. #1, (TEMP_LEVEL), - + 0636 
$0 1 9 FO INSV = RB Ay Pal ; 

61 1 A EF Extzv #10, fh (temp EVEL), R3 : 0638 
69 01 A 3 FO INSV = RB. “10, & ) : 

61 1 0¢ EF ExTzv #12, #1. (Ene pabgvel R3 + 0640 
60 1 ‘ INSV R3 3 

6 61 MOVB CFemp Cevens tRO) + 0643 

046 Ad 06 Al OD MOVL  4(TEMP_LEVELS, 4(RO) + 0645 

25 ry) DECL 1 : 0628 
046 Ac 52 (I 28: CMPL GOAL_LEVEL ; 
BA 18 00061 BGEO i : 

04 00063 RET + 0647 


3; Routine Size: 100 bytes, Routine Base: DBGSCODE + 0138 


ISoseo-19ge 01:34:92 WEDIMOAEER Bate Seaeone ant” 


i. 


; 3 GLOBAL ROUTINE DBGSSET_STP_DEF : NOVALUE = 

: $25 550 1! FUNCTIONAL DESCRIPTION: 

: 6 551 1: ANCELS USER SET DEFAULTS FOR STEP SETTINGS. 

; RESETS ALL STEP LEVELS TO SYSTEM DEFAULTS FOR THE CURRENT LANGUAGE. 
; 554 1 «5 

; 655 1 | INPUTS: 

; $31 5 NONE 

; : 1 | IMPLICIT INPUTS: 

i 93% THE DEFAULT STEP SETTINGS 

: 661 1 | OUTPUTS: 

: 006 : NONE 

; 2 9 564 1 | j IMPLICIT OUTPUTS: 

; +g 667 1 | Routine value: 

; 343 0668 NOVALUE 

> 545 @ 1! SIDE EFFECTS: 

; 346 ? i RESETS DEFAULT values FOR STEP. 

; 248 7 BEGIN 

388 a 

; 22 3676 H Set up the step data structure 

; 23g 0678 bB6$cB_ STP_PTR = DBGSGB_DEF_STP CDEFAULT_STEP 

; 236 9679 EVENTSA~STEPPING_DESCRIPTOR 
; 556 0681 IF .DBGSGB_LANGUAGE EQL ‘atti ott 

s $37 Bose THEN 

; 238 8 BEG! 

: 559 84 pBCSC._ STP_PTR CEVENTSB_STEPPING_KIND] = EVENTSK_INS_EVRY; 
; ser 85 DBGSGB STP"PTR CEVENTSV-STEPPING-LINE] = FALSE; 

: 6¢ 8 LSE 

; 56 88 BEGIN 

> 564 9 DBG$GB_STP_PTR [EVENTSB_STEPPING_KIND] = EVENTSK_INS_LINE; 
: 565 30 DBGSGB STP"PTR CEVENTSV-STEPPING-LINE) = TRUE; 

; 208 9% DBG$GB_STP_PTR EVENTSV_ STEPPING. NOSYSTEM) = TRUE; 

; 568 9 DBG$GB-STP~PTR CEVENTSV-STEPPING-OVER] = TRUE; 

; 69 94 DBGSGB-STP~PTR CEVENTSV~STEPPING. SOURCE) = TRUE; 

; 70 95 DBG$GB~STP~PTR EVENTSV" STEPPING: “NOSILENT) = TRUE 

; 4 3 DBGSGB_STP_PTR CEVENTSL_STEPPING_OP_LIST) = 0; 

; Fe DBGSINIT_STEP (USER_DEF_STEP, DEFAULT_STEP); 

3; 575 00 END; 


3 Routine Size: 


59 bytes, 


Ss snseent I 

000000006 : 

7 f 
60 7 

rn o. 

FF62 CF 02 fB 


Routine Base: 


DBGSCODE + 019F 


Nn 9 | 
1e-8eb-19be 12:73:06 SreSUMeAASTERscheooc saczpeGmon.e320%% «ot 


| 

DBGSSET_STP_DEF, Save R2 3 0648 | 
DBG$GB_STP_PTR, : 
DBG$GB-DEF-STP, DBGSGB_STP_PTR : $80 | 
DBGS$GB-STP“PTR. R + 0684 
cs Snel + 0681 
#8, (RO) + 0684 
#i, 1(RO) : 0685 
2 : 0681 
5 . {Re : rch 
#36 1(RO) : 069 
4(RO6) : 0697 
#i, -(SP) : 0699 
#2, DBGSINIT_STEP : 

: 0700 | 


10 
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; Af z 1 } GLOBAL ROUTINE DBGSSET_STP_LVL (LEVEL) : NOVALUE = 

: 8 7 i 1 ' FUNCTIONAL DESCRIPTION 

$ 80 7 1! This routine ag the pointer to the step structure to the specified 
; 581 0705 1! level. If the level is not user_def_step the step values there are 
; 286 8 1! copied to override_step level. If the level is user_def_step the 
5 8 4 1! pointer is Just reset to that level. 

: 584 07 8 1 

; 585 709 1 | FORMAL PARAMETERS: 

; 586 0710 1: LEVEL = The new step structure level. 

3 387 0711 1: user_def_step 

§ 88 orig 1 / override_step 

: 589 0713 13 

; 590 0714 1! IMPLICIT INPUTS: 

; 591 0715 1 NONE 

: 298 0716 1! 

; 59 0717 13 IMPLICIT OUTPUTS: 

: 594 0718 1: ONE 
; 595 0719 1: 
; 596 0720 1 ! Routine value: 

; 597 0721 1: NO value 

; 598 07 : 1! 

; 599 0723 1 ! SIDE EFFECTS: 

3 600 O72 1 i ONE 

: 601 0725 1 i- 

3 602 0726 ” BEGIN 

3; 60 O79? 

3 604 0728 LOCAL 

: 605 0729 TEMP_LEVEL: REF EVENTSSTEPPING_DESCRIPTOR; 

: 607 a8 IF .LEVEL EQL USER_DEF_STEP 

3; 609 07 j DBGSGB_STP_PTR = DBGS$GB_DEF_STP CUSER DEF_STEP 

> 610 0734 VENTSA_STEPPING_DESCRIPTOR 
: 611 0735 

: 612 0736 ELSE 

: 61 0737 BEGIN 

3 614 0738 TEMP_LEVEL = DBGS$GB_DEF_STP CUSER DEF_S 

: 615 0759 VENTSA STEPPING. DESCRIPTOR 

: 617 0741 DBG$GB_STP_PTR = DBGS$GB_DEF Mie COVERRIDE_STEP 

; 618 0748 ifY VENTSA_STEPPING_DESCRIPTOR 
3; 620 076% DBG$GB_STP_PTR R CEVENTSY TEPPING LINE) = 

: 621 745 TEMP_CEV EVENTS STEPPING LINE); 

; 6 ¢ 0746 pacsée STP BYR R CEVEN ENTS$V stepping ROSYSTEM) = 

: 6 074 TEMP_CEV VENTSO STEPPING NOSYSTEM); 

> 624 0748 pacsée STP BYR RV CEVEN nisy STEPPING OVER] = 

3: 625 749 TEMP_CEV EVENT $0 STEPPING OVER); 

: 626 750 pacsée STP byee eu teat v_STEPPING SOURCE) = 

: 627 751 TEmp_Cever CEVEN 130 STEPPING SOURCE): 

; 628 738 DBGSGB STP BYR CEVEN NT$V_STEPPING ROSILENT) = 

: 698 32  TEMP_CEVEL EVENTSO’S STEPPING_NOSILENT); 

: 631 755 DBGSGB SIP. PTR R CEvENTSe. S TEPPING KIND) = 

: 63¢ 736 . TEMP EVENTSG STEPPING KIND); 

3; 63 75 DBGS$GB_ Sree vet CEVENTSL STEPPING _OP_LIST) = 


15500-1984 0} #34 :8¢ | Bliss-32 V4.0-7 


X-11 42 Pa 0 
° SKSVMSMAS TERS LDEBUG. SRCIDBGMOD.B32.4°" (10) 


; Routine Size: 92 bytes, Routine Base: DBGSCODE + O1DA 


14-Sep-19 2:17: 
& 7 -TEMP_LEVEL CEVENTSL_STEPPING_OP_LIST); 
EB ae ‘etre : 
6 END; : 
001¢ 000 .ENTRY DBGSSET_STP_LVL, Save R2,R3,R4 : 0701 : 
54 000000006 00 9€ 0002 MOVAB DBG$GB_BEF_STP+8, R4 : i 
3 000000006 00 i 00 MOVAB DBGS$GB-STP~PTR, R3 : ‘ 
01 04 AC D 9910 CMPL VEL, #1 : 0731) : 
04 12 00014 BNEO : | : 
6? 64 9E 0016 MOVAB DBGS$GB_DEF_STP+8, DBG$GB_STP_PTR + 0735. ; 
04 0001 RET : 0733 ; 
51 64 9E OOOIA 1$ MOVAB DBGS$GB_DEF_STP+8, TEMP_LEVEL 0740 | ; 
$3 08 Ad 3 001D MOVAB DBG$GB-DEF-STP+16, DBGSGB_STP_PTR > 0743. : 
0 63 DO 00021 MOVL § DBGSGB"STP-PTR, R : 0744. : 
01 AO 01 00 01 Al FO 00024 INSV 1(TEMP“LEVEL), #0, #1, 1(RO) + 0745) : 
52 61 01 0B EF 00028 EXTZV #11, #7, (TEMP_LEVEL). R2 + 0747 : 
60 01 08 32 FO 00030 INSV R2, #11, #1, (RO) : : 
52 61 01 p EF 00035 EXTZV #9, #1, (TEMP_LEVEL), R2 + 0749 : 
60 01 09 2 FO 00034 INSV (RO) : : 
52 61 01 OA EF 0003F ExTz2v #10, wi, (TEMP_LEVEL), R2 : 0751 : 
60 01 OA 52 FO 00044 INSV wi : ; 
52 61 01 O¢ EF 00049 EXTZ2V #12, #1. (TEMP_LEVEL), R2 + 0753) : 
60 01 0c 2 £0 00046 INSV = R2 (RO) F F 
60 61 90 0005 MOVB = (TEMP_LEVELS, (RO) : 0756) F 
04 A0 04 Al D0 00056 MOVL 4(TEMP_LEVELS, 4(RO) : 0758 | : 
04 00058 RET ; 0760, ; 
‘ 


iSoden-1986 0): 54:22 


2 


; 638 76 GLOBAL ROUTINE DBGSSHOW STEP : NOVALUE = 

; 640 18 1 | FUNCTIONAL DESCRIPTION: 

: 64 764 1: ACTION ROUTINE TO DISPLAY THE CURRENT SETTING OF THE 
; b4¢ 165 : ‘STEP TYPE’ DATA STRUCTURE 

i Beg Hep} | nurs. 

i Beg ee 

: 85 yi wer 

; 650 773 (1 ¢ OUTPUTS: 

: 651 77%, 1: NONE 

; re re } IMPLICIT OUTPUTS 

> 654 777 1/3 : 

: 655 0778 1: see 

BB bees 

: 658 0781 1: 

: 659 O78¢ 1 | SIDE EFFECTS: 

; 660 0788 THE STEP SETTINGS ARE DISPLAYED ON THE OUTPUT DEVICE 
3 66¢ 0785 "BEGIN 

: 664 ig 

: +? 37e8 : Setup a UPLIT ZASCIC string. 

: 667 0790 MACRO 

: 668 m 0791 SAC (STRING) = 

; 669 » 0798 _ UPLIT BYTE (ZASCIC STRING) 

: 671 079% ; 

; 67¢ 0795 

; of? B78 ! Step type... 

3 67? O98 DBGSPRINT  ($AC ("step type: ')); 

: 677 0800 

3 678 0801 ! (NO) SYSTEM... 

; 680 bB08 IF .DBGSGB_STP_PTR CEVENT$V_STEPPING_NOSYSTEM) 
; eB 080s DBGSPRINT (SAC ('no")); 

3 68 806 DBGSPRINT (SAC ("system, '5); 

: 685 08 

3 686 09 ! CNOJ SOURCE.... 

3 688 1 if NOT -DBG$GB_STP_PTR CEVENTSV_STEPPING_SOURCE) 
: 690 18 DBGSPRINT (SAC ("no"); 

: OR 16 DBGSPRINT ($AC "source, '5); 

: 69 16 

> 69% 1 ! (NO) SILENT.... 


32 


v4. 
CDEB 


0 
U 


=742 P 1 
G.$RCIDBGMOD.B32: 19° (14) 


a l 


10 
1b-5¢ -1984 01:34: VAX=11 Bliss-32 V4.0-742 P 2 
yak scat ri PAE Gt a rt A Pf 
' 
if ,D8GSGB_STP_PTR CEVENTSV_STEPPING_NOSILENT) 


DBGSPRINT (SAC ('no")); 
DBGSPRINT (SAC ("silent, '$); 


> + 


WN —COONOUS win OOow 


! INTO/OVER.... 
if -DBGSGB_STP_PTR CEVENTSV_STEPPING_OVER] 
DBGSPRINT (SAC (‘over’)) 


ee] AAXAO 
SISSSSSSESE 
OOQCOCCOCOOOCGCOCGOOOCOOOCOOOOOOCoOoOoOO 


708 DBGSPRINT (SAC ("into')); 

8 4 DBGSPRINT ($AC (* routine calls, ')); 

711 

ar} ; 5 ! Display the instruction type (calls, branches, all, or user 

at : : list. 
715 : 8 DBGSPRINT (SAC od 'AC’) 
rig 839 SELECTONE .DBGSGB_STP_PTR CEVENTSB_STEPPING_KIND] OF | 
718 841 EVENTSK_INS_CALL) : 

719 og C T'ca “yi? 

720 84 CEVENTSK INS_BRAN) : 

721 844 oar branches:'); 

732 B45 LEVENT gxCLEXC] , 

7 74] $Ac 7 xcept s'); 

724 oae CEVENTSK INS_E : 

725 0848 sac instruction’); 

726 0849 CEVENT INS_USER] : 

727 0850 SAC T'inStruction(s):"); 

728 0851 CEVENTSK INS _LINE : 
729 9026 SAC T'Line'); 
7 085 CEVENTSK_ACC_RTRN) : 

731 0854 $AC T'refturn'); 

7 ; 0855 TES 
7 oe28 ); 

7 085 
735 858 

7 59 ! If this entry is an instruction type (/CALL, /BRANCH, etc.) and 

737 ' has an opcode bit map ae is not for all instructions), 

g display the opcode mnemonics indicated. 


~“ 
RS 
-—o 
FESS. 


Se Se Se Ge Se Se Se Se Se Se Se Se Ge Se Ge Fe Se Se Se Se Ge Fe Ge Se Se Ge Ge Se Ge Ge Ge Se Ge Ge Ge Se Ge Ge Se Se Ge Ge Se Se Ge Se Ge Se Ge Se Ge Ge Ge Ge Ge Seas 


Hag Rota SP pre CEVENTSL_STEPPING_OP_LIST] NEQA 0 
74 5 BEGIN 
74 LOCAL 
744 OPCODE LIST : REF BITVECTOR (512), 
oe COLUMN; 
* 4 : Point to the opcode List, and set the column to 0. 
ays OPCODE LIST = .DBG$GB_STP_PTR CEVENTSL_STEPPING_OP_LISTJ; 
= el; 
751 74 INCR OPCODE FROM 0 TO 511 DO 


2 


OONAOUE wir 


So jam ee i i i i i i | 


TFTFATSS 


20 


73 6C 6C 61 


6E 
29 73 28 6€ 


pofofelolololelololo) 

2.00 C9 00 00 C0 CD CD CD CD 

> i | 

Wwr—oO wm 
=PONIWINIANINNA BPP PEP 


3A 65 


63 20 


73 «6E 
F 


F 10 


10 -1 
18: Sep-1 
IF ,OPCODE_LIST C.OPCODE] THEN 
BEGIN 
LOCAL INDEX; 
IF gcou UMN = 


INDEX DaGsO Psyye KIND_TABLEC .OPCODE); 


ty PRINi (SAC (°!_TAD')76,0B6 


END; 
DBGSNEWLINE (); 
END 


} Otherwise, just print the Line. 


ELSE 
DBGSNEWLINE (); 
ND; 


79 74 20 70 65 74 73 OB 00049 P.AAK: 
F $f 0 0055 P.AAL: 
2c 6D 65 74 73 79 0058 P.AAM: 
F . 0061 P.AAN: 
2c 65 63 72 75 6F 9 P.AAO: 
6F $f 0 0 P. AAP: 
2C 74 6E 65 o¢ 9 0070 P.AAQ: 
72 6 6F 04 00079 P.AAR: 
F 4 $f 69 04 OQOO7E P.AAS: 
6— 69 74 75 6F § 0 O08 P.AAT: 
43 41 21 20 79 6 og on P. AAU: 
3A es 6C 6C $] 6 6 00 
8 § 6— 61 ‘ 6 + P.AA 
ERENT E & 
75 8 74 73 6E 69 4 
5 6€ 69 6C 04 
6—€ 72 75 $f 5 72 3 
44 41 21 F 21 OODF ABC 


oOo 
monooooon" 
—OwomMmmmma 


P. AAV: 
OOA2 P.AAW: 
OOAC P.AAX: 
OOB7 P.AAY: 
00C3 P.AAZ: 
43 
OD3 P.ABA: 
00D p-ABe: 


>>> FY??? r FY PY? rr>rYr>r 
non WYoOouono Wn 


3c 92:79:66 


VAX-11 $-32 V4. 
DISK$V nen TER: 


-COLUMN + 1) AND 7) EQLU_0 THEN DBGSNEWLINE (); 
PCODE_NAME_TABLEL.INDEX,0,0,0,0]); 


DBGSPLIT,NOWRT, 
<11>\step type: \ 
>\no\ 


>\system, \ 
>\no\ 

>\source, \ 

>\no\ 

>\silent, \ 
<4>\over\ 

<4>\into\ 

<16>\ ates calls, \ 


<6>\by !AC\ 
<6>\calls:\ 
<9>\branches:\ 
<10>\exceptions\ 
<11>\instruction\ 
<15>\instruction(s):\ 


<4>\Line\ 
<6>\return\ 
<S>\!_ !ADN 


SHR, PIC,0 


AAAAAA 


DBGSCODE .NOWRT, SHR, PIC,0 


DBGSSHOW STEP, Save R2.R3.R4.R5,R6,R7.RB 
DBGSNEWLINE, R8 

DBG$GB St. “br. R?7 

DBGSPRINT 


#1, DBGSPRINT 
pBgsce TP_PTR, RO 
“ii, 008) "18 


742 
cbeauG. SRCJDBGMOD. 832; i atti 


0761 


yOe-000 frig 93:73:88 SNS cbunteaStenscoeauc.sacIpecmon.8s204"" «145 


OC AS OF PUSHAB P.AAL 7 0805. 
ke 01 FB CALLS i DBGSPRINT : 
OF AS OF 1$ PUSHAB + 0806. 
§ 01 F CALLS #1, DBGSPRINT ; 
67 D MOVL pagsce, st TP_PTR, RO + 0811 
06 6 A f BBS x »,"2$ ; 
18 #AS OOF PUSHAB + 0813 
66 01 FS CALLS #1, DBGSPRINT : | 
18 «AS OOF 28: PUSHAB + 0814) 
$6 9% 06 hour’ a pésee StF PIR, RO : 0819 
06 60 o¢ : C beg eno) : 
26 «AS OOF PUSHAB + 0821) 
66 01 FB CALLS #1, DBGSPRINT : 
27 AS OOF 38: PUSHAB P. + 0822 
66 01 FB CALLS #1, DBGSPRINT : 
67 D MOVL paéscs STP_PTR, RO 3 0827 | 
05 60 09 gi BBC (RO), 2$ : 
30 a3 oF PUSHAB B AAR 3 0829 | 
35 AS OOF 4$: PUSHAB P.AAS : 0831, 
ry 01 FB 5$: CALLS ai DBGSPRINT : | 
3A ASOD PUSHAB + 0832) 
66 01 FB CALLS DBGSPRINT : 
50 67 p MOVL badets n'P- PTR, RO : 0839 
05 60 91 CMPB Pro + 0841 
06 12 BNEQ a ; 
51 52 A 1 MOVAB P.AAV, R1 + 0842 
36 1 BRB 1i$ : 
06 0 91 68: C (RO), #6 : 0843, 
12 BNEQ 7$ : 
51 59 AS 9E 0008 MOVAB P.AAW, R1 0844 
28 11 88 BRB 1i$ ; 
OF 60 91 7$: CMPB ss (RO), #15 + 0845 
06 12 BNEQ 8$ 3 
51 63 A H 9 MOV P.AAX, R1 > 0846 | 
20 1 BRB 1i$ : 
08 60 91 00098 8$: CMPBs« (RO), #8 + 0847 
06 12 00098 BNEQ 9$ ; 
51 6— A 9 90 MOV P.AAY, R1 3 0848 | 
1§ 1 Al BRB 1i$ : 
09 60 91 000A3 98 CMPB Ss CRO), #9 + 0849 | 
6 12 Ab BNEQ 10$ ; 
51 7A OA % MOVAB P.AAZ, R1 : 0850 
OA 1 AC BRB 1i$ : 
07 0 91 AF 108:  CMPB (RO), #7 : 0851 
9 12 : BNEQ 12 3 
51 008A c5 9E MOVAB P.ABA, R1 > 0852 
1 Db BB 118 PUSHL Ri ; 
11 D00BA BRB 14$ ; 
04 9 9 D00BC 128:  CMPB (R0), #6 > 0853 
1 DOOBF BEQL i 3 
7E F ct 00C1 MNEGL #1, =(SP) : 
? 0C4 Bra 148 3 
50 008F : 9€ OO0C6 13$:  MOVAB P.ABB, RO > 0854 
Bd 000cB PUSHL RO : 
48 AS 9F OOOCD 14%: PUSHAB P.AAU > 0838 


52 


; Routine Size: 


29 
50 


CB 


285 bytes, 


H 10 
16-Sep-1984 VAX=11 BL Liss -32 v4.0-742 

ence tee TS T5GS Pee nGAlS eRe beads sacspecno.esanf* «14s 

$6 03 F CALLS #2 DBGSPRINT ; 
D D MOVL DBGSCB_ STP_PTR, RO + 0863 

04 Ad ; TSTL  4(RO) : 

3 D BEQL «4=s«418$ : 
55 06 AO D 0B MOVL  4(RO), OPCODE_LIST : 44 
2 cE DF MNEGL “1, “eo UMN : 0873. 
dD ce CLAL oe : 0875. 

4 ei £4 15$: C ion 7 {OPCODE LIST), 17% : 
9 01 A2 SE 000E8 MOVAB t 0879. 
fF £ EXTZV i. Reo. COLUMN : 
¢ F BNEQ : | 
f F CALLS © een : 
00000000600 C O00F6 168 MOVZWL SOPCODE WEIND _TABLECOPCODE], INDEX : 0880, 
OA ca re MULL2 : 0881. 
0000000060040 ' i PUSHAB bacboPcone _NAME_TABLELROJ : | 
0096 P 10A PUSHAB ; 
Fe 10 CALLS e SBGSPRINT : 
QOOOOIFF BF F3 00111 178: AOBLEG #511, OPCODE, 158 : 0875. 
68 0 FB 00119 18$: CALLS #0, DBGSNEWLINE > 0890 | 
04 0011C RET : 0891 | 


Routine Base: 


DBGSCODE + 0236 


10 
1-30-1984 93:75:88 McbunteaStenscotauc. saczoecmon.e32047° (135 


GLOBAL ROUTINE dbgSinit_search (goal_level, source level) : NOVALUE = 
FUNCTIONAL DESCRIPTION: 


Sets all levels from override level to the a level specified 
with the search settings of the source level. 


SES 3 


S: 
goal_level = highest level to set 
source_level - level from which to obtain search settings 


IMPLICIT INPUTS: 
none 


i ee | 
Sano 


333 


APANHS 
S332s 


ee be te ee 


IMPLICIT OUTPUTS: 
THE search settings of the override level to the goat level 


te J 

oO 
3333 : 
-—-o 


API ALAA LAEPIRAIJPIPIAIIIPDAIY at at at nt nt nt nk at ak dk ak kk tk at et ot ot ot 2 2 2 


i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

: OUTPUTS: 
i 

i 

i 

: are reset to the search settings of the source level. 
i 
i 
i 

i 

i 
ie 


1 
1 Routine value: 
; NOVALUE 
1 SIDE EFFECTS: 
, NONE 
1 
BEGIN 
LOCAL 


temp_level: REF VECTOR C, BYTE); 


sone.tevet = dbg$gb_def_search C.source_level * search_lvl_size); 
DECR I rere avere de_search T9 .goal_level DO 


dbg$gb_search_ptr = dbg$gb_def_search (.1 * sporch tut size); 
dbg$gb_search_ptr Csearch_all]“= .temp_level Csearcth_allJ; 
gbgsgb_search_ptr search_ident].= .temp_level Csearch_ident); 


Secs RoR SsessSPaeeS 


SSSSSSOOOSOOGOSGOGOSOOS 


WUenonononofnonofofnoneny 


NM—OOONOVFWUN “SO OOVoulur 


.ENTRY DBGSINIT SEARCH, Save R2,R3,R4 ; 0892 
DBGS$GB_DEF SEARCH, R4 ; | 
DBGSGB-SEARCH_PTR. R3 ; 
SOURCE LEVEL, "RO ; 0925 
DBGSGB-DEF_SEARCHCRO), TEMP_LEVEL ; 

s oll ; 0930 

MOVAW  DBGSGB_DEF_SEARCHLI), DBGSGB_SEARCH_PTR ; 992 | 

VL  DBGSGB"SEARCH_PTR, RO > 0929. 
v (TEMP _CEVEL), (ROS pene 


vOs-000 


3; Routine Size: 


48 bytes, 


04 


Routine Base: 


AC 


-Sep-1 
dtr nt 


@ Be 


DBGSCODE + 0353 


be V2i19:66 — DiSeSvmsnaStenscbedue-s 


Ha 3 1 GOAL LEVEL 


§cI0BGMOD.B3269" «135 


2 9932. 


8 


3 Routine Size: 


—> —) ss > 4 


CNAME W OOD ONOUS ur 


Wr 


w 


NOUS WN Oo 


uw 
owe 


Nee ee ee 
- 


SPRIFIAIPIPIPIJAINIAIARIMDA/Y) a re ar ar rr a ed ed ed ed ed ed 


29 bytes, 


SIDE EFFE 


iecbeeage QM:H4:32  yobcdTaghtad 


mu 
“™ 


GLOBAL ROUTINE dbgSset_search_def : NOVALUE = 
seta 7 ) scnyery 


ene tt USER sey ‘DEFAULTS FOR SEARCH SETTINGS. 
Rese ALL SEARCH LEVELS TO SYSTEM DEFAULTS FOR THE CURRENT LANGUAGE. 


INPUTS: 


IMPLICIT INPUTS: 


THE DEFAULT SEARCH SETTINGS 


OUTPUTS: 
NONE 
IMPLICIT OUTPUTS: 
NONE 


Routine value: 
NOVA 


LUE 

CTS: 

RESETS DEFAULT values FOR SEARCH. 
BEGIN 


'¢ 
‘ Set up the search data structure 


dbg$gb_search_ptr = dbg$gb_def_search(default_search * search_lvl_size]; 


dbg$gb_search_ptr(search_all] = FALSE; 
dbgsgb. search_ =ptr search-ident] = FALSE; 
goas nit_search (user_def_search, default search); 


00 sENTRY DBGSSET SEARCH DEF, 
MOVAB DBG$GB_SEARCH PTR, 
(RO) “SEARCH, 
(RO) 


7E 


1 CLRW oe 
1 MOVa #1, -(SP) 
Bo AF \? 5 #2, DBGSINIT_SEARCH 


Routine Base: DBGSCODE + 0383 


ave R2 


é 3 dooooo00e 4 ¥ HOVAB DBG$GB_DEF SEARCH: 3 GSGB_SEARCH_PTR 3 
if 


$hC I8GMOD .832: rt 18) 


0933 


0968 | 
0970. 


28 


a Pe PP Ps 
S33esssss 


33 


Jaen 


sees 
Sssssseegss 


RII AAAI ATI LPININIIII III a a a st i dk dt 


sss 


NOUS WN OOO 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


Soooooooo 
tt a ot oh oo et 


r+ pte ROUTINE dbgSset_search_ivi (level) : NOVALUE = 
i j FUNCTIONAL DESCRIPTION 


{ FORMAL pot 


i Rout ine value: 
NO val 


aoe 
2 


his (wy, bors the pointer to the search structure to the specified 


evel is not user_def_search the search values there are 
° i. Ft de_search level.” If"the level is user_def_search the 
$s just reSet to that level. 


= The new search structure level. 
user_def_search 
override_search 


IMPLICIT INPUTS: 
NONE 


IMPLICIT OUTPUTS: 
NONE 


temp_level: REF VECTOR C, BYTE); 


-level EQL user_def_search 
THEN 


BEGIN 
gbgsgb_search_ptr = dbg$gb_def_search Cuser_def_search * search_lvl_size); 


she 
emp. haved = dbg$gb_def_search Cuser det. search * search_lvl_size 
ee gb_search_ptr i. “dogSgb_def_search Coverride_search * search_ Ta size); 


dbg$gb_search_ptr Csearch_all] = .temp_level Csearch_allj; 
gbgsab. search_ptr Csearch_ident) = .temp_level Csearch_ ident); 


000C 00 DBGSSET_SEARCH LVL 5 Saye R2,R3 
BG$GB_BEF SEARCH 


D 
DBGSGB_ BcSEARCH PTR ee 


oooooo 

oe 

aFrOSNS 
e 
mm 
2 
= 
xz 
~< 


83 t 


abe ena Yared ABALEFzE2 ¥650c742espscnop 0329 re? 


asm nk mantel DBGSGB_SEARCH_PTR 


; Routine Size: 


40 bytes ° 


: 


Routine Base: 


DBGSCODE + 03A0 


m 10 
ra 


16-Sep- 
14-Sep- 
9 

A 1$: 

) 

1 

4 

7 


1986 92343568 


RET 

VAB DBG$GB 
HOVAB  becsce 
MOVL DBGSGB 
MOVW = (TEMP_ 
RET 


VAX- 
DISKS$V 


VMehASTE 


ARCH® 
ARCH+ 

H_PTR 

2 aR ROS 


32 V4.0-7% o 
STER: DEBUG. Sfcapacroo. B32: Aad 
2. TEMP LEVEL ; i | 

_DBGSEB_SEARCH PTR ; Hf 


: 1017. 


N 10 | 
| 16-Sep-1984 01:34: VAX=11 Bliss-32 V4.0-746 P 1 
12-808-1382 9:95:68 DI SKSVMSMAS TER CDEBUG. SACIDBGMOD.B3207" (18) | 


GLOBAL ROUTINE dbg$show_search : NOVALUE = | 


i FUNCTIONAL DESCRIPTION: | 
ACTION ROUTINE TO DISPLAY THE CURRENT SETTING OF THE 
"SEARCH TYPE’ DATA STRUCTURE | 


INPUTS: 
NONE 


2 


oy 


ES 


| 
IMPLICIT INPUTS: | 


OUTPUTS: 
NONE 


IMPLICIT OUTPUTS: 
NONE 


WA.AI AAAI POPOPOPOPoPoNPoNons 


Routine value: 
NOVALUE 


Www 
WN SO OONOUES WN “COONS W000 


= tetetetetetetetetet sc 
FS PAA 

EWN —OODBNAULWN OC OONOUE 
PORPOPOPOPOROROEROIOPORITONOPUTRI LAIN 9 at tt tt tn nn ts 


THE SEARCH SETTINGS ARE DISPLAYED ON THE OUTPUT DEVICE 


SIDE EFFECTS: 


BEGIN 


CUE WN —ODONOULS WO 


PMOIPIPOPONRONINY — 2 


LOCAL 
allics : REF VECTORC, byte), 
ident_cs : REF VECTOREC byte); 


| 
| 
| 
'¢ 
| 
| 


DOOODOODODODOOODDODODDDODDO00O 


SOON 


! We simply put out one Line describing the 
! current search types, based on the TRUE/FALSE 


a ec ce ee a ee ee ee ee ee ee ee ee ee ed ed ed aed 


931 
O38 indicators given in the SEARCH structure. 
934 ; 
935 ! If the search mode is not ALL, then it 
33 ! must be NEXT. 
938 if( .dbg$gb_search_ptr{ search_all ] ) 
939 then 
940 all_cs = uplit( Zascic ‘ati occurences’ ) 
941 06 else 
ak} +9 all_ics = uplit( Zascic ‘next occurence’ ); 
944 06 ! If the search mode is not IDENT, then it 
ot +4 ! must be STRING. 
34 ae -dbg$gb_search_ptrl search_ident] ) 
en 
328 +43 ident_cs = uplit( Zascic ‘an identifier’ ) 
950 else 
a3) 34! ident_cs = uplit( Zascic ‘a string’); 
938 Ore ! Put out the Line and return. 
955 P 1074 $fao_tt_out("search settings: search for !AC, as !AC', 


11 

DBGMOD $ep-1984 01:34: VAX-11 Bliss-32 V4.0-742 

vOe-000 122865-1 384 93: 217: 66 DISK KSVMSMASTER: CDEauG. SRCIJDBGMOD. 832: i 9135 
-allcs,.ident cs); 


<o 


-PSECT DBGSPLIT,NOWRT, SHR, PIC,0 


00ES -BLKB 3 | 

73 65 63 6E 65 72 75 63 63 6F 20 6C 6C 61 3 poee P.ABD: .ASCII <14>\all occurences\<0> : 
65 63 6€ 65 72 75 63 63 6F 20 74 78 65 6€ oF gore P.ABE: .ASCII <14>\next occurence\<0> : | 
00 72 65 69 66 69 74 6E€ 65 64 69 20 6E 61 3 0108 P.ABF: .ASCII <13>\an identifier\<0><0> : | 
00 00 67 6& 69 72 76 73 20 61 § o118 p-ABG: ASCII <B>\a str ing\<0><0><0> : | 

73 67 6 69 74 76 65 73 20 68 63 72 61 65 73 00125 ° <ASCII \ h settings: h for !AC, ‘ACY: 
GT $f 96 93 de de 83 de BS $8 SF 28 $3 $3 gk Bh pep poate Prana ont oc ee | 
43 41 21 20 73 61 20 2¢ 43 00143 : | 

.PSECT DBGSCODE.NOWRT, SHR, PIC.0 | 

0004 00000 -ENTRY DBGSSHOW SEARCH, Save R2 ; 1018) 

52 00000000° FF i 00002 MOVAB P. ; 

50 000000006 00 D0 00009 MOVL  DBGS$GB_SEARCH_PTR, RO ; 1057 

05 60 9 00010 BLBC ‘ : 

51 62 9E 00013 MOVAB P.ABD, ALL_CS : 1059) 

04 11 00016 BRB : 

51 10 A2 43 00018 1$ MOVAB P ABE. ALL_CS ; 1061 | 

06 01 AO ; 0001C 2$ BLBC 1(RO). 38 ~ + 1066) 

50 20 A2 9E 00020 MOVAB P.ABF. IDENT_CS > 1068 | 

04 11 00024 BRB 4$ 3 

50 30 a2 9E 00026 3$ MOVAB P.ABG, IDENT_CS ; 1070, 

50 DD O002A 4$ PUSHL IDENT_CS ; 1075 

51 DD 0002C PUSHL ALL CS F 

3C A 9F O002E PUSHAB P H : 

000000006 00 03 FB 00031 CALLS #3, DBGSFAO_OUT : | 

04 000 RET : 1076) 


3; Routine Size: 57 bytes, Routine Base: DBGSCODE + 03C8 


16500-1984 9} 34:62 VAX=11 Bliss-32 V4.0-742 


: 


fae. * ae 14-Sep- DISKSVMSMASTER: CDEBUG.SRCJDBGMOD.B32 
; 328 } a } GLOBAL ROUTINE dbg$Sinit define (goal_level, source_level) : NOVALUE = 
; 961 1 § 1 ! FUNCTIONAL DESCRIPTION: 
; 308 1080 1! Sets all Levels from override level to the goal level specified 
; st 108. : with the define settings of the source level. 
; 965 10 5 1 ! INPUTS: 
; 208 1084 1! 
; 96 1085 1! goal_level - highest level to set 
> 968 inne 1! source_level - level from which to obtain define settings ax. 
; 969 1087 1! 
; 970 see 1 ! OUTPUTS: 
; 971 1089 1! 
; ore 1090 1! NONE 
3 OF 1091 1! 
; 974 S36 + ! IMPLICIT OUTPUTS: 
3 97> 1095 1! 
; 976 1094 1! THE define settings of the override level to the goal level 
; 977 1095 1! are reset to the define settings of the source level. 
; 978 1096 1! 
; 979 1097 1 ! Routine value: 
; 980 1098 1! NOVALUE 
; «981 1099 1! 
; 98 1100 1 ! SIDE EFFECTS: 
; 98 1101 1! NONE 
> 984 1198 1 fee 
> 985 1103 1 
; 986 1104 BEGIN 
3; 987 1105 
; 988 1106 LOCAL 
; oer Ate temp_level: REF VECTOR C, BYTE]; 
; «991 1109 konp.tevet = dbg$gb_def_define C.source_level * define_lvl_size); 
3 4 Bb DECR' I FROM overr de_define TO .goal_level DO 
: 994 116 dbg$gb_define_ptr = dbgS$gb_def define C.1 * define_lvl_sizel; 
: 995 111 gbgsgb_define_ptr Cdefine_only] = .temp_level Cdefine_onlyJ; 
: 996 1114 2 END; 
; 997 1115 «1 END; 
001C 00000 ENTRY DBGSINIT_ DEFINE, Save R2,R3,R4 
54 00000000G 00 9€ 00002 MOVAB ODBGSGB_DEF DEFINE, R4 
23 000000006 00 9 484 MOVAB ODBGSGB"DEFINE PTR, R3 
8 64 a 1 rt DBGS$GB_DEF DEFINE, RO 
52 5 08 as ¢ 01 ADDL SOURCE-LEVEL, RO, TEMP_LEVEL 
” o¢ 4 0016 os | 
63 50 4 C1 1D 1$ ADDL3 R4, 1, DBGSGB_DEFINE PTR 
51 63 1 MOVL  DBGS$GB_DEFINE-PTR, RT 
61 9 4 ROVE (TEMP_CEVEL), (R1§ 
04 AC } 9 2% CMPL i GOAL LEVEL 
cE 18 D BGEO é 


Pa 
A 


e 33 
(16) 


1077 


1109 | 


1113 


111 
11 


1110 


V 


awk 


ak 


eS 


Sep-1984 VAX-11 Bliss<-32 V4.0-742 P 

1$-bep-1964 93:75:88 BiScSunteagtenscoea C8UG-$ACIDBGMOD.B3269%" (10) 
04 0002F RET : 1115, 
; Routine Size: 48 bytes, Routine Base: DBGSCODE + 0401 | 


11 
1b-Se 1984 01:34: VAX-11 Bliss-32 V4.0-742 P 5 
16-Sep-19 4 93:99:88 D1 SKSVMSMAS TERS CDEBUG. SRCIDBGHOD.B32;1°" (17) 


: 


: +04 1116 ! GLOBAL ROUTINE dbg$set_define_def : NOVALUE = 

: 1001 1118 1 ! FUNCTIONAL DESCRIPTION: 

3 3 g 1119 1! CANCELS USER SET DEFAULTS FOR define SETTINGS. 

; \Ooz 1 y } RESETS ALL define LEVELS TO SYSTEM DEFAULTS FOR THE CURRENT LANGUAGE. 
; 1005 11 § 1 ! INPUTS: 

3: 1 11 1! 

; 100 11246 1! NONE 

; 1008 1125 1! 

: 1009 11 § 1 ! IMPLICIT INPUTS: 

3; 1010 11 1! 

3; 1011 11 3 1! THE DEFAULT define SETTINGS 

3 Ste 11 1! 

3; 101 1150 1 ! OUTPUTS: 

: 10146 0: o£ 

: 1015 11 ; 1! NONE 

3: 1016 11 1! 

3 1017 1134 1°! IMPLICIT OUTPUTS: 

; 1018 1135 1! 

: 1019 11 $ 1! NONE 

3 13st 11 1! 

3 1021 1138 1 =! ROUTINE VALUE: 

; 10 ¢ 1139 1! 

3; 10 1140 1! NOVALUE 

: 1024 11441 1! 

: 1025 1326 1 ! SIDE EFFECTS: 

3; 1026 11445 1! 

3; 1027 1144 1! RESETS DEFAULT values FOR define. 

; 1028 1145 1 !<< 

: 1029 1328 1 

: 10 114 BEGIN 

3; 1031 1148 

3 1936 1149 

3; 10 1150 '¢ 

3; 10 1151 ! Set up the define data structure 

: 1035 1136 oo 

3; 1036 115 

3 H 3 14 W138 dbg$gb_define_ptr = dbg$gb_def_defineldefault_define * define_lvl_size); 
3 1039 1138 dbg$gb define _ptrldefine only} = define address; 
: 1960 HT 14 dbgs nit_define (user_def_define, default_define); 


1116 


0004 00000 -ENTRY DBGSSET_DEFINE DEF, Save R2 : 
52 000000006 9E 0000 MOVAB DBGS$GB_DEFINE PTR, R : 
$2 000000006 9E 00 MOVAB DBGS$GB~DEF DEFINE. DBGSGB_DEFINE_PTR > 1154, 
1 MOVL § —DBGSGB-DEFINE PTR, RO > 1156. 
6 1 MOVE #1, (RO) ; 
E 1 7D 00016 MOV = #1. = (SP) : 1157) 
B3 AF 2 FB 0001 CALLS #2. DBGSINIT_DEF INE : | 
04 0001D RET : 1158 


vos-000 


3 Routine Size: 


30 bytes, 


Routine Base: 


DBGSCODE + 0431 


rf 11 
“Sep 
-Sep- 


719e $2:19:06  DISKSVNGHAS TERS CDEGuG.S 


Shc oecno0. B32; roe it 


11 
1B-5¢ $1984 01:34: VAX-11 Bliss-32 V4.0-742 P 7 
1 30071 38¢ 93:95:88 DISK SVMSMAS TER CDEGUG. SAC IDBGHOD.B3204°" (185 
GLOBAL ROUTINE dbg$set_define_lvl (level) : NOVALUE = 


FUNCTIONAL DESCRIPTION 
his routine sets the pointer to the define structure to the specified 


level. If the level is not user_def_define the define values there are 
copied to override_define level. If the level is user_def_define the 
pointer is just reset to that level. 


FORMAL PARAMETERS: 

LEVEL = The new define structure level. 
user_def_define 
override_define 


DONA VES WN "OC ODNOUVEW 


PAPAS 


OOooooo0o 


IMPLICIT OUTPUTS: 
NONE | 
Routine value: 
NO value 
SIDE EFFECTS: 
NONE 


i IMPLICIT INPUTS: 
; NONE 

i 

i 

leo 

BEGIN 


LOCAL 
temp_level: REF VECTOR C, BYTE); 


IF level EQL user_def_define 
THEN 


BEGIN 
Gogh .dot ine pte = dbg$gb_def_define Cuser_def_define * define_lvl_size]; 
ELSE 


BEGIN 
tone. level = dbgsgb_def define Cuser_def_define * define_lvl_size); 
dbg$gb_define_ptr = dbgSgb_def_define Coverride_define * define_lvl_size; 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
gbgsgb_define_ptr Cdefine_only] = .temp_level Cdefine_only); 


— 
oooownoJovJowJow 09 C9 C9 0909 08 SII NINO AAA AAOOM 


me a mt ka aaah a a ak at ik tk at at a at a a et = a a So — 2 2 a se 4 


Sesseesegssassesssegeeersess 


Se Se Se Se Se Ge Ge Se Se Ge Ge Se Se Se Se Ge Se Ge Ge Ge Ge Se Se Ge Se Se Ge Ge Ge Ge Ge Se Ge Se Se Se Ge Ge Se Ge Ge Ge Ge Ge Ge 


C 000 .ENTRY DBGSSET_DEFINE_LVL Saye R2,R3 : 1159 
900000006 99 E 000 MOVAB G$GB_DEF _DEFINE+1, R ; 
000000006 t MOVAB BGS DEFINE PT » 2 : 
Os 9 p00is i aoe ‘Reed 
62 63 9E 0001 MOVAB DBGSGB_DEF_DEFINE*+1, DBGSGB_DEF INE_PTR > 1193 
04 0001 RET > 1190, 


vOL-000 1fo}ep “13RE 93:43:68 = OEScbinGeaSTenscbeaue. shcapecnon.es2.4%" «18s 
1 £3 SE R885 1 Bye bacs BEE-DEF INE So, pecs SEF INE _PTR : 1438 
a a ee 


CEVEL) F 
3: 1203 
3; Routine Size: 40 bytes, Routine Base: DBGSCODE + 044F 


1b-5¢ Sep-1 4: VAX-11 BLis $-32_ V4.0-742 Pp 9 
1 ~300n 138% 9}: 3 ‘6 DISKSVMSM $TERs (DEBUG. Shc avecmon.83204°" (195 
GLOBAL ROUTINE dbg$show_define : NOVALUE = | 

i FUNCTIONAL DESCRIPTION 


ROUTINE T 0 DISPLAY THE CURRENT SETTING OF THE 
“define TYPE’ DATA STRUCTURE 


2 


wn 


S333 WnN—Oo 


(define procedure} i 
de f=¢ = UPLIT (ZASCIC *PROCEDURE'); 


sett oY : 
def = UPLIT (ZASCIC ‘STRING'); 


Cdefine_value) : 
def"cs = UPLIT (ZASCIC "VALUE"); 


CINRANGE, OUTRANGE) : 
$D86_ ERROR(' DBGMOD\DBGS$SHOW_ DEFINE*); 


3 1 1 1 

3% 1 1 

3 1 1 1! 

2 1508 1 | 

: 1 1 } 1} 

3 3 1 i? 1 ! INPUTS: 

: SH oes 

:1 1 ig 1 | IMPLICIT INPUTS: 

‘1 ‘LB | peda 

; 1391 1 ig 1 | ouTpuTs: 

Pp 3:6 ete 

: 1104 1 i 1 IMPLICIT OUTPUTS: 

iw iwi 

: 1308 1 ¢ 1! Routine value: 

Te dee te 6 se 

> 1110 1225 1 | SIDE EFFECTS: 

3 bey : $ : : THE define SETTINGS ARE DISPLAYED ON THE OUTPUT DEVICE 
a 

> 1115 1 

3 1133 1231 LOCAL 

3 HET 4 ; ; def_cs : REF VECTOR C,BYTE); 

: 1119 1 ‘+ 

: 1120 1235 i we simply put out one Line describing the 
3 1121 1 i current define t pes, based on the values 
3 i § ; i _Stven in the def ne structure. 

> 1126 1239 

3: 1125 1240 CASE wn rnen define_ptr Cdefine_only) 

311 $ 1241 define_lowest TO define_highest OF 
iy 18 a 

: 11 1244 (detine_ address): 

FH Hi ' : $2 de f=¢ = UPL 1T (ZASCIC “ADDRESS'); 
: 11 ; 124 (define_command) : 

3 ; "i def~ cs = UPLIT (ZASCIC “COMMAND'); 
: 1135 1250 

3 71 1 

3 99 1 

3 9 1 

3; 7 1 

3 9 1 

311 1 

3 7% 1 

3 11 1 

311 1 

3; 11 1 


00 

4F 48 53 24 
67 6& 69 74 
43 41 21 2F 
0033 


3; Routine Size: 


00 45 
47 42 


74 «665 
45 4E 


94 bytes ° 


tate 


19be 92:79:66 Of 


X-11 Bl Alef -32 V 
SKSVMSMASTER: 


$fao_tt_out(*current setting is: DEFINE/!AC',.def_cs); 


TES; 
END; 
BOHR SS f 
52 $ “ 3 ‘3 4F ¢¢ 1 
47 4 49 52 
00 45 55 r6 41 56 
ah § 44 4F 4D 47 42 44 
45 46 49 46 45 44 SF 
73 FG > me fm fT 
49 te 45 tf 30 5 4 He 
38 00000000° fr 
000000006 8 
06 1 6 
002D 0027 O04 
O00E 000E 0039 
52 
1 
00028362 BF 
000000006 00 93 
» awh 
50 oc 8 
50 E4 A 
OA 
50 FO A2 
04 
50 F8 $ 
17 =A 
000000006 00 0 


Routine Base: 


DBGSCODE + 0477 


o 
nm 


23ar xnwe 
ee ef «8 ef of of 


DBGSPLIT,NOWRT, 
<7>\ADDRESS\ 
<7>\C 


OMMAND\ 
<9>\BROCEDUR Veta 
<6>\STRING\< 

<5>\VALUE\<0>< 

<32>\DBGMOD\<9 > \DBGSSHOW. DEF INE\ 


SHR, PIC,0 


30 
\current setting is: DEFINE/!AC\ 


DBGSCODE,NOWRT, SHR, PIC,0 
DBGSSHOW_ DEFINE, Save R2 


P. ABN 
DBGS$GB_DEFINE_PTR, RO 
(RO), #1, #6” 


#166 706 
#3, LIBSSIGNAL 


P.ABI, DEF_CS 
P.ABJ, DEF_CS 
P.ABK, DEF_CS 
P.ABL, DEF_CS 
P.ABM, DEF_CS 
DEF _c§ 

P. ABO 

#2, DBGSFAO_OUT 


0-742 40 
cbésuG-SkcIDBGHOD.B32;1°* 19) 


Ifcdeo-t9ge Mb:75568 | OTSkSvm RASTER Eebs.SRcsoecno0.03254%° 18) 


"1 
18-50-1964 93:75:68 Di SKSVMSMAS TER: CDEBUG. SRC2DBGMOD.832;1°" (20) 


S 


3 1} ¢ } 66 ! GLOBAL ROUTINE dbg$set_out_def : NOVALUE = 

11 1 és 1 | FUNCTIONAL DESCRIPTION: 

3; 1155 1 | 1! pete OUTPUT configuration to default gett ings. s called from 
3; 11 1 y 1! DBGSINIT_DEBUG as part of the once only initialization phase. 
3 11 1271 1! Also inifializes the default LOG filespec and the string buffers and 
3 1185 ; 78 ! : location of the LOG file's NAM block. 

: 14 1274 1 | FORMAL PARAMETERS: 

3: 1161 1275 1! none 

3 1188 1 6 1! 

3; 116 1277 1°! IMPLICIT INPUTS: 

: 11646 1 4 1! The default modes 

3; 1165 1279 1! 

3 BY «| 1280 1 ! IMPLICIT OUTPUTS: 

3 ier : 3 ; : The vector dbg$gb_def_out is initialized 

; 1169 1 HY 1 ' ROUTINE VALUE: 

3; 1170 1284 1! none 

3 1171 1285 1! 

3 1176 1 36 1 ! SIDE EFFECTS: 

3 117 1287 1! none 

3 1174 1288 1 !-- 

3 1175 1289 1 

3 1109 1290 BEGIN 

tii 1593 

: 1179 1 38 dbg$gb_def_out [out_log] = FALSE; ' nolog 

: 1180 1294 dbg$gb_def_out Cout_term] = TRUE; ! terminal 

: 1181 95 dbg$gb_def-out Cout verify] = FALSE; i noverify 

: 1188 : 44 ! This variable is used to hold pointer to a user defined filespec 
; 1185 99 dbg$gl_log_buf = 0; 

: 1187 01 ! initialize default log file spec 

3 1189 1308 dbg$gl_logfab ffabsi_dna = deflog_name; 

3 HB 1305 dbg$gl_logfab [fab$b_dns] = deflog_size; 

; <4 ' y4 ! Initialize address of related NAM block and the resultant string buffers 
3 119% 1308 dbg$gl_lognam = dbg$get menory((nam$c_bln¢3)/ZUPVAL) ; 

3 1195 1309 Snam_init (nam=.dbg$gl_Tognam); 

> 1196 1310 dbg$gb_logfse = dbg$get_memory( (nam$c_maxrss+3)/ZUPVAL); 

3 1197 1311 dbg$gb_logfsr = Chareet ponory( tneste naxrese )/ZUPVAL); 

3: 1198 1 \¢ dbg$gl_logfab (CfabSi_nam] = .dbg$gl_lognam; 

3 1199 131 dbg$gl_lognam [nam$l_esa] = .dbg$gb_logfse; 

: 1200 1314 dbg$gl_lognam [nam$i_rsa] = .dbg$gb_logfsr; 

: 1201 1315 dbg$gl_lognam [nam$b_ess] = namdc_maxrss; 

3 : Og ' 1 dbg$gl"lognam (nam$b_rss) = nam$c_maxrss; 

> 1204 1318 END; 


vOs-000 


0060 8&F 


; Routine Size: 


137 bytes, 


OnNOOPrw 
Sssss 


000000006 


05 A? 


Routine Base: 


4 


40 


QOAQGAG 


UA MNO WDNOWDWOAOA NO OMOOsoocdod 


: 


So 
oo 
co 


DBGSCODE + 0405 


iScdeo-19Be 01:54:22 vane 


1 


VAX-11 Bliss-32 V4.0-742 Pp 
DISKSVMSMAS TER: LDEBUG.SRCIDBGMOD.B32: 1" 

-ENTRY DBGSSET_OUT_DEF, Save R2,R3,R4,R5,R6,R7,RB,-; 
MOVAB DBGSGB_LOGFSR, R11 : 
MOVAB DBGSGB-LOGFSE, R10 : 
MOVAB DBGSGL~LOGNAM, R9 : 
MOVAB DBGSGET_MEMORY, RB : 
MOVAB DaGS6L Loge AB+é8, R?7 ; 
MOVW #256, BBG$GB_DEF _OUT : 
CLRB DBGS$GB_DEF_OOT+2 ; 
CLRL_ DBGS$GL-LOG~BUF : 
MOVAB DEFLOG NAME, DaGSG, LOGFAB+48 3 
MOVB #9, DBGSGL_LOGFAB+53 3 
PUSHL #24 ; 
CALLS #1, DBGSGET_MEMORY : 
MOVL RO, DBGS$GL_COGNAM 3 
MOVL DBGSGL LOGRAM, R6 : 
MOVCS #0, (SP), #0, #96, (R6) : 

VW #24578, (R6) ; 
MOVZBL #64, <(SP) : 
CALLS #1, DBGSGET_MEMORY : 

VL. —- RO, DBG$GB_COGF SE : 
MOVZBL #64, =(SP) F 
CALLS #1, DBGSGET_MEMORY : 
MOVL RO, DBG$GB_COGFSR 3 
MOVL pBGsGL LOGNAM, RO : 
MOVL RO, DBGSGL_LOGFAB+40 : 
MOVL  DBGSGB_LOGFSE, 12(RO) : 
MOVL §§ DBGSGB"LOGFSR. 4(RO) : 
MNEGB #1, 10TRO) : 
a #1, 2¢(RO) 3 


N11 | 
eg, ee ee Lie 93:95:88 DISKSVMSAASTER: CDEBUG. SAC 0BGNOD.832;1°° (24). 


GLOBAL ROUTINE dbg$show_output(full_rep) : NOVALUE = 


FUNCTION, DESCRIPTION: 
Action routine to she “UTPUT configuration 


FORMAL PARAMETERS: 
full_rep equals 1 for a full report (i.e. "SHOW OUTPUT"’) 
' 2 for Just “SHOW LOG’ 


IMPLICIT INPUTS: 
The OUTPUT configuration data structure, dbg$gb_def_out 


PORUPUROPOPorororunorunonunununund 
SELF 


INIA AIP PIN POPOPININNYDD 2 2 SS 


ROUTINE VALUE: 
none 


SIDE EFFECTS: 


J 

i 

i 

i 

i 

i 

i 

i 

i 

i 

: IMPLICIT OUTPUTS: 
: none 

i 

i 

i 

i 

: A message is generated that displays the current output configuration 
te 


FE EWWWIWINIWIWIIInononononononononun 


WN“ OVONAUVUSWN —“OOONOUSWN—O 


; 1 1 

3 3 1 1 

3 7 1 1 

3 3 1 ¢ 1 

3 3 1 1 

3; 1 13264 1 

3 3 1325 1 

3 3 1 § 1 

3 1 1 1 

3 1 1 3 1 

3 7 1 1 

3 3 1330 1 

3% 1331 1 

3; 1 1 ¢ 1 

3 1 1 1 

3 3 1334 1 

t ae 

3 13 1 $ 1 

3 3 1338 1 

3 1 1339 1 and the log file name 

e | 1340 1 !-- 

. 1341 1 

3 le 13 § BEGIN 

3 3 134 

3 3 1348 LOCAL 

3 7 1345 verify_cs : REF VECTOR BYTE). 

: 1 1346 term_cs : REF VECTOR C.BYTEI, 
3: 1234 1347 2 log_cs : REF VECTOR C,BYTEJ, 

3; 1235 1348 § no_count: word, 

3 1s36 iF string_count: word; ! count of chars in output string 
: 1238 1351 no_count = 0; ! count of ‘'no’’ characters 
; it +44 1326 

3 1240 135 IF_.full_rep 
3: 1241 1354 THEN 

5; 7 <g 1355 BEGIN | 
3: 124 1356 IF _ .dbg$gb_def_out Cout_verify] 

3 1264 1357 THEN 

3 1245 1358 verify_cs = UPLIT(ZASCIC ‘") 

3; 1 m4 1359 ELSE 
3: 124 1360 4 BEGIN 
3 1248 1361 4 verify_cs = UPLIT(ZASCIC ‘no'); 

3 1249 1 ; 4 no_count = .mo_count + 2; 

3; 1250 136 ENB; 

3; 1251 1364 

3 1 2§ 1365 IF .dbg$gb_def_out Cout_term] 

3; 125 1366 THEN 

3: 1254 136 term_cs = UPLIT(ZASCIC *") 

: 1255 1368 ELSE 

3: 1256 1 44 4 BEGIN 

3; 1257 1370 4 term_cs = UPLIT(ZASCIC ‘no'); 

3; 1258 1371 4 no count = .no_count + 2 

3 1259 1 ¢ 3 

3 1260 137 END; 

3: 1261 1374 

3 1262 1575 IF .dbg$gb_def_out Cout_log] 


: 


18-42-1986 01:34: 
1o=e8-13be 93: 73588 


THEN 
log_cs = UPLIT(ZASCIC ‘'*) 

ELSE 
BEGIN 
lLog_cs = UPLIT(ZASCIC ‘not '); 
no count = .no_count + 3; 
END; 

bg_mod2 


Fd 
HEN 
ge.tt_outt' shou_cutput: rss !SB, rsa !XL",.dbg$gl_lognam[nam$b_rss], .dbg$gl_lognam{nam$l_rsaJ); 


1 
aT 
$f 
aF 


© 0090900 09 C9 C9 0009 0909 INI 


DNAVEWN (OOS NAUE WN OOONO 


' If a LOG file is = report the filespec in the NAM block, otherwise 
! use the default filespec 


POTUPOIPUPIPOPUNOPoPoTofrorfufnofpofrorygd 
“InN AACA O 
ccr 


IF .dbg$gl_logfab Cfab$Sw_ifi] LEQ 0 


-dbg$g “Lognam(nam$(_rsa 


3 3 1 

3 1 1 

3 7 1 

3 3 1 

3 3 1 

; 1 1 

: 1 1 

3 Y 1 

3 7 1 

3 3 1 

3% 1 

3 3 1 

3 7 1 

3 1 1 

3 3 1 

3; 7 1 

a. 1 

; 1280 1 

; ise) 1 THEN 

3 3 ag 13 IF .full_rep 

; 128 3 THEN 

3: 1284 P 1 $fao_tt_out(‘output: !ACverify, !ACterminal, !AClogging to !AD', 
; tH 18 .verify_cs, .term.cs, .log_cs, deflog_size, deflog_name) 

3 +14 res $fao_tt_out("!AClogging to !AD',.log_cs, deflog_size, deflog_name) 
3; 1289 1306 ELSE 

3; 1290 140 IF .full_rep 

; 1291 1404 THEN 

3 1698 1405 BEGIN 

; 129 1406 : string count is initialized to the no. of characters in the output 
3; 1294 1407 ! string (not counting ‘'no''s and the log filespec). 

3 1295 1408 

> 1296 1409 string_count = 38; 

3 344 1619 string count = .string_count + .no_count + .dbg$gl_lognam{nam$b_rslJ; 
; 1 1218 : ! If we exceed the max record length, output two Lines 

; 1301 1414 : IF _.string_count LEQ tty_out_width 

3 1308 1415 THEN 

3; 130 P 1416 $fao_tt_out("output: !ACverify, !ACterminal, AC Logging to 'AD', 

3 ! : ei! -verify_cs, .term_cs, .log_cs, .dbg$gl_lognam(nam$b_rsl], .dbg$gl_lognam{nam$l_rsa)) 
3 1 1419 

3 7 1o50 4 BEGIN 

3 1 P 1421 4 $fao_tt_out("output: !ACverify, !ACterminal, !AClogging to :", 

3 1309 1656 4 over ity cS, .termcs, - bog.csi 

: 1310 14 4 $fao_tt_out("!AB", .dbg$gl_lognam(nam$b_rsiJ, .dbg$gl_lognam(nam$\_rsa)); 
3 1311 1426 END; 

3 1 i 1425 END 

3; 131 14 $ 

3 1314 14 ELSE 

3 1315 P 1428 $fao_tt_out(*!AClogaing to _!AD‘ he, cs, .dbg$gl_lognam(nam$b_rsi], 
3:1 1 1429 3; 

3 131 1450 

3; 1318 1431 


END; 


<o | 


12 
-S$ep-1984 01:34: VAX-11 Bliss-32 V4.0-742 P 46 
~300 71382 04: 75:68 DISKSVMSMAS TER: DEBUG. SRC IDBGMOD.B32:1 > (21) 


-PSECT DBGSPLIT,NOWRT, SHR, PIC,0 


O1AE -BLKB 2 
6° 00 00 Bie P.ABP: .ASCII <0><0><0><0> : 
0 F 6 1B4 P.ABQ: ASCII <2>\no\<0> : 
0 0 1B8 P.ABR: ASCII <0><0><0><0> ; 
0 6F s 18¢ P.ABS: ASCII <2>\no\<0> : 
99 00 1CO0 P.ABT: .ASCII <0><0><0><0> : 
00 00 00 20 74 6F 6€E a Bice hot nt <4>\not \<0><0><0> : 
69 72 65 76 43 41 21 20 3A 75 70 74 75 6 pies “"" TASCIT. \output: !ACverify, !ACterminal, !ACloggi\ : 
ee eee ae ae ae ae ee ae Hl 58 88 Soles 
44 41 21 20 6F 74 20 67 6€ itt ASCII \ng to !AD\ : 
11 OO1FE P.ABW: .BYTE 17 : 
21 20 6F 74 20 67 6E 69 67 67 6F 6C 43 41 et OOlFF “ASCII \!ACLogging to !AD\ : 
31 00210 P.ABX: .BYTE 49 ; 
69 72 65 76 43 41 21 20 3A 74 75 70 74 75 6F 00211 -ASCII \output: !ACverify, !ACterminal, !ACloggi\ ; 
oa Be oaeannrns 2 003¢F 
44 41 21 20 6F 74 20 67 6E 00239 ASCII \ng to !AD\ ; 
er Bots P.ABY: .BYTE 47 : 
69 72 65 76 43 41 21 20 3A 74 75 70 74 75 6F 0024 ASCII \output: !ACverify, !ACterminal, !ACloggi\ ; 
Sie te wk we oe a oe oe i 2 oo ; 
3A 20 6F 74 20 67 GE 00268 .ASCII \ng to :\ : 
03 00 i P.ABZ: BYTE : 
44 41 21 0027 “ASCII \!AD\ ; 
11 00276 P.ACA: .BYTE 1 ; 
21 20 6F 74 20 67 6E 69 67 67 6F 6C 43 41 et 00377 “ASCII \!ACLogging to !AD\ 3 
-PSECT DBGSCODE,NOWRT, SHR, PIC,O 
OFFC 00000 ENTRY DBGSSHOW OUTPUT, Save R2,R3,R4,R5,R6,R7,RB,~; 1319 
58 990000006 0 9€ 00002 MOVAB DBG$GL_LOGNAM, R11 : | 
Ie oS a By RaMNEBecnrnahbunUnge” * : 
3 titdittdi EF 9€ i MOVAB Ber Loc RAME. RB : 
4 B4 00 43 CLRW NO _COURT > 135 
5 06 AC €9 0 BLBC Fuc REP, 4$ : 135 
? 6A £9 4 BLBC DBG$GB_DEF _OUT+2, 1$ > 135 
6 0180 ¢ i 0027 P.ABP, VERTFY_CS : 135 
08 1 C BRB 23 : 
56 01B4 ¢ 9 5 1$: ROVAB P.ABQ, VERIFY_CS > 
4 A ADDW2 _COUNT : 1 
07 fe AA 28: BLBC  DBGSGB"DEF OUT+1, 3$ 31 
5 0188 oe 3 A MOVAB P.ABR, TERA_CS : 1 
5 018¢ 9 41 3$: MOV P.ABS, TERM_CS > 137 
32 2 RO 00046 ADDUe #2, NO_COUNT ; 13) 


-Oo NVR OOW— 


<o | 


aaa eS era eee,” SRE Seompsplgs towels 


ana 2 


GMOD 16-Sep-1984 01:34: VAX-11 Bliss-32 V4.0-742 Page 47) 
Mirai 19-308-1 3b 94:95:88 DISKSVMSMAS TER: DEBUG. SRCIDBGMOD.B32: 1° (21) 

7 FE AA €9 00049 4$: BLBC D0BG$GB_DEF_OUT, 5$ : 1375) : 
8% ore f 5e ROVAB P.ABT, LOG-CS : 1333, 
53 01¢4 9 5$: MOVAB P,ABU, LOG_CS + 1380) i 

4 A 9 ADDW2 #3, NO_COURT > 1381. i 

000000006 99 & és: sty G$GL~LOGFAB+2 ; 1393) 
10 04 At E 06s BLBC = FULL_REP, 7$ : 1395 ; 
58 DD 068 PUSHL R : 1398 | ; 
DD 0006A PUSHL # : ; 
DD 0006C PUSHL LOG_CS : ; 
DD 36 PUSHL TERA_CS 3 ; 
6 D PUSHL VERIFY_CS : : 
o1cCc F 907 PUSHAB P. ABV : F 
i 076 BRB 9$ : ; 
8 DD 00078 7$: PUSHL RB + 1400 : 
09 DD 0007A PUSHL #9 : F 
3 pd 0007¢ PUSHL  LOG_CS : : 
O1FE C8 OF 07 PUSHAB P.ABW F : 
63 11 0008 BRB 2s ; : 
50 6B 00 00084 8$: MOVL §§ DBGSGL_LOGNAM, RO + 1410) ; 
4F 04 AC €E9 00087 BLBC PULL LR P, 11$ : : 
52 26 0 00088 MOVW #38,” STRING COUNT + 1409) F 
51 ¢ OO08E MOVZWL STRING COUNT, R1 + 1410) : 
57 54 3¢ 00091 MOVZWL NO_COUNT, R7 ; ; 
51 57 C0 00094 ADDL2. R7 : : 
54 03 AO 9A 90097 MOV ZBL 3(RO), R4 ; | : 
52 51 54 Al 0009B ADDW3 4, RI, STRING COUNT : : 
0084 aF 32 B1 0009F CMPW  STRING.COUNT, #13 t 1414, F 
15 1A OOOA4 BGTRU 10$ : ; 
04 AO DD O00A6 PUSHL  4(RO) > 1417) ; 
7E 03 AQ 9A 000A9 MOVZBL 3(RO), =(SP) F | : 
53 DD OOOAD PUSHL LOG C$ : | 3 
55 DD OOOAF PUSHL TERA_CS 3 i 
56 DD 00081 PUSHL VERIFY_CS ; F 
0210 C8 9F 0008 PUS P.ABX ; | : 
69 06 FB 00087 9S: CALLS #6, DBGSFAO_OUT : | F 
04 OO00BA RET ; 
53 DD 000BB 10$:  PUSHL LOGCS > 1422 
55 DD 00080 PUSHL TERA CS ; 
36 BD OOBF PUSHL VERIFY_CS : | 
0242 ¢ F 90C) PUSHAB P.ABY : 
69 4 F C5 CALLS #4, DBGSFAO_OUT : 
50 D C8 VL  DBGSGL_LOGNAM, RO > 1423 
06 Ad DD 000CB PUSHL (RO) : 
7E 93 AO 9A 000C MOVZBL 3(RO), -(SP) : 
02 f 9F 000D PUSHAB P.ABZ ; 
69 FB 06 CALLS #3, DBGSFAO_OUT ; 
04 000D RET > 1403 
04 AO DD OOODA 11%:  PUSHL (RO) + 1429 
7E 3 ad 9A 000DD MOVZBL 3(RO), -(SP) ; 
53 0D 000E1 PUSHL LOG C§ : 
0276 ¢ F OO0E PUSHAB PACA : 
69 4 FB OOOE? 128: CALLS #4, DBGSFAO_OUT : 
04 OOOEA RET > 1431 


3; Routine Size: 235 bytes, Routine Base: DBGSCODE + 055E 


Lee ~30-1904 01:84:22 VAN-T Liste We.0-742 Page 48 


F 12 
16-Sep-1984 01:34: VAX-11 Bliss-32 V4.0-742 P 49 
bak seat hs rR PO GS a Gt LS RP lt i 
GLOBAL ROUTINE dbg$set_log : NOVALUE = | | 
i FUNCTIONAL DESCRIPTION: 
This revs ine closes any log 
the file specified by the user in 


FORMAL PARAMETERS: 
none 


e that H currently open and opens 
¢ 


file th 
SET LOG ‘‘filespe 


' 

i 

i 

i 

i 

i 

i 

: IMPLICIT INPUTS: 
: The RMS~set IFI (internal file identifier field) bit is used to 
; determine if a previous log file is still open. 

; The user specified LOG filespec is pointed to by dbg$gl_log_buf 
' 

i 

i 

i 

i 

i 

i 

i 

i 

i 


IMPLICIT OUTPUTS: 
none 

ROUTINE VALUE: 
none 


SIDE EFFECTS: 


i ee ry ee te Sa et ae ee lak ee 


SISSE 
Fun —O0@ MEAN SO OONA NEW OO ODNAMUE WN OO OONA UE 


AMAA Ree ABA AAA AA ATARI ORORORIND 


Any previously open log file is closed and a new log file is opened. 
Logging is inhibited for the duration of this routine. 
BEGIN 
LOCAL 
eoeoe ig 
opened log, 
ios : BYTE. 
fna, 
old_nam_ptr, 
b_type, 
temp_nam : REF SNAM_DECL 
temp-fse : REF VECTOR £.ByTE. 
-BYTEJ, 


t fsr : REF VECTOR 
log teap : BYTE; 


opened_log = FALSE ; 


“SSNS 


! inhibit logging until we can redirect the log file 


log.t = .dbg$gb_def_out Cout log); 
dbgSgb det out Cout log = FALSE; ’ 


! see if a log file has been previously opened. If so, close it, 
i since it must be CLOSEd befor we can do the new SPARSE. 


IF .dbg$gl_logfab Cfab$Sw_ifi] NEQ 0 
THEN 


Ft at et et kkk tk tka eek ek el ek kek ek ek eke tal tak tek eh, ah, teh eh tek 


ee Se ee ee eee Ss 
ee em a a at kd a td = = = = a 2 4 


RRL RLLRES 
NNN 
VEWN—OOCONOW 
CEE IAI ERROR RORORONORURONONUPUNONUIPUPONUPUPUNNDDY 2 2 2 2 es 
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BEGIN 

opened_log = TRUE; 

tna = -dbg$gl_logtab ftabsi_tna ; 
fns = .dbg$gl_logfab [fab$b_fnsJ; 
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77 
7 status = tty (FAB = dbg$gl_logfab); 
7 IF NOT .status 
80 THEN 
1 BEGIN 
LOCAL 


desc : BLOCK (8,BYTEJ; 
build ore. esc (msg desc); 
SIGNAC (sfir$ st Losesutedb 


de, ms 
-dbg$gl_ psecur edog fe stss. “ dbgSol Tog abL fabSt_ stvJ); 


WOOOOOOO0O0OE 


! get new NAM block, preserve the original 


temp_nam = dbg$get memory ( (nam$c _ bln+3)/ZUPVAL); 

Snam_init (nam = .temp_nam); 

temp. “fse = dbgsget_ memory ((nam$c_maxrss+3)/ZUPVAL); 

temp_fsr = nant get spenory ((nensc “maxrss+3)/ZUPVAL); 
esa 


ARANLSSSLSARAN LSS TE 


3 1 14 

3; 3 14 

3 3 14 

3 3 14 § 

3 3 14 4 

3 1494 & 

3 3 1495 4 

3 1 14 : 4 

3 7 14 4 

3 3 1498 4 

3% 1499 

3 1 12 0 

1% 1203 

3 1 1208 

3 1 1288 

3 1 1505 

3 1 1208 

3 1 150 temp_nam emp_fse; 

3; 1 1508 temp_nam (nam$l"rsa] = .temp_fsr; 

3 1 1509 temp. — rans -03s = nam$c_maxrss; 

3 3 1510 one nee rts = nam$c_maxrss; 

3 1 1511 dbg gl_ logtab CF fabs ren = Ttemp_nam; 

3 14 1216 nam_ptr = .d lLognam; 

3 14 151 SpoSol Tognam = besar “nam; 

3; 14 1514 

3 14 1515 END; 

3 14 1318 

3 14 t 151 ZIF dbg_mod2 

3: 1406 U 1318 ZTHEN 

3 1407 U 151 $fao_tt_out("dbg$gl_log_buf- !XL",.dbg$gl_log_buf); 

3; 1408 1520 ZFI 

3: 1409 1521 

3 1o19 I § ! reset the appropriate FAB file process options 

3 rd | 1524 dbg$gl_logfab Cfab$v_cif] = 0; 

3 141 1525 dbg$gl"logfab Cfab$v_mxv) = 1; 

3 iet9 13 $ dbg$gl"logfab Cfab$v_nam) = 0; 

3; 1416 1528 ' Set up file name, dbg$gl_log_buf contains the pointer to the user 
3 1417 1529 i sonal tien filespec. 

3; 1418 1530 

3 1419 1531 IF .dbg$gl_log_buf NEQ 0 

3 1420 1 $ THEN 

3 1421 1 BEGIN 

3 14 § 15 

3 14 1535 

3 7 1 13 dbg$gl_log_buf : REF VECTOR C,BYTE); 
: 16 $ 13 : dbg$gl_logfab (fab$l_fna] = .dbg$gl_log_buf + 1; ! filename addr starts in 2nd byte 
3 14 15 dbg$gl"logfab Cfab$b_fns] = .dbg$gl-log_buf(0); ! Ist byte is count 
HEB TRE | Hee.soee 

3 6 9 U ' ri} $ta0. tt_out('fna !AD',.dbg$gl_logfablfab$b_fns), .dbg$gl_logfab(fab$l_fna)); 
5 16 1544 

3 14 § 1344 ' Parse the filespec to see if an explicit version number was 


-— 
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! now open the new log file 


SSLESE 


status = setup_log(b_type); 
If NOT status ° s 
THEN 


3 14 1 ¢$ ' given. If so set the CIF bit, otherwise we must maximize 

3 1? 5 : 2 ! the version number. 

: 14 1825 status = SPARSE (FAB = dbg$gl_logfab); 

3 14 1550 IF NOT .status 

3; 14 1551 THEN 

3 1440 1 § 4 BEGIN 

HOES Joong 

; sts, 

$ 1e08 1555 4 stv, 

3 Meee 1387 : msg_desc : BLOCK (8,BYTE); 

; prs : 4 2 ! save these because restore_nam will reset them 

5 14658 1260 4 sts = .dbg$gl_logfab pfepst sts $ 

3 1449 138) 4 stv = .dbg$gl_logfab [fab$l_stvJ; 

5 es 1206 ? build_err_desc (msg_desc); 

: 145¢ 1564 4 IF .opened_log 

3; 145 1565 4 THEN 

3 1454 1208 5 restore_nam 

1082 1368 —iee 

: 1289 1569 : dbg$gl_logfab [fab$l_fna] = 0; 

3 1458 1570 H dbg$gl_logfab [fab$b_fns] = 0; 

3; 1459 1571 dbgsgl_log_buf = 0; 

 1cey 1398 rate 

: 1208 1574 4 SIGNAL (shr$_syntax + dbg_fac_code, 1, msg_desc, .sts, .stv); 
3 1eti 132? END; 

P1488 1872 § att doa.nod2 

: 1467 U 1579 Sfao_tt_out("status; 'XL*, .status); 

3 Hr 4 U 1389 gy p0~tt.outt*nee esa- 'AD ,.dbg$gl_lognam[nam$b_eslJ, -dbg$gl_lognam([nam$l_esa]); 
5 1470 15 ¢ IF .dbg$gl_lognam (nam$v_exp_ver] 

: 1033 iene i THEN EGIN 

: 1278 1585 4 dbg$gl_logfab Ftabsv.cit = 1; 

: 1474 15 4 dbgsgl_logfab fab$Sv_mxvJ = 0; 

‘i | wi 

: 147 15 dbg$gl_logfab Cfab$v_nam) = 1; ! open by NAM block since 
3: 1478 15 ENB: > one ‘. ! 4 already parsed the filespec 
; re 4 133) 

; 1481 L 1398 IF _dbg_nod2 

: 6 5 U 13 gr pe.ttoutt’ ine 'AD*, .dbg$gl_logfab(fab$b_fns], .dbg$gl_logfab[fab$i_fna]); 
: 1485 15 

3 14 1 

3: 14 1 

3 14 1 

3: 1489 1 

; 1490 1 


ss 
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msg_desc : BLOCK (8,BYTE), 
sts, 
stv; 


build_err_desc (msg_desc); 
as type EQL 1 
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oO 
Mw 
oe 


ogfab Cfab$l_sts]; 
ogfab [fab$i-stvJ; 


ELSE 


sts = .dbg$gl_lograb Crab$i_sts]; 
stv = .dbg$gl-lograb Crab$i"stvJ; 
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SESSR Ro SSSSLPOR OSS 


IF .opened_lo 
THEN r ots 


restore_nam 
ELSE 
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3 7 
3 3 
3; 1 
3 
3; 1 
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0 
2 
4 BEGIN 
5 dbg$gl_log io fab$i_fna] = 0; 
g dbg$gl_logfab tedso_ fns] = 0; 
dbesgl-log buf 
: tTLogfab Ctabsy nam) = 0; 
0 
; sige (shr$_openout+dbg_fac_code, 1, msg_desc, .sts, .stv); 
3 ! restore logging status and free temp storage 
8 dbg$gb_def_out Cout_log] = .log_temp; 
$ 39 iF” opened log . — 
8 ny THEN 
: Ot§ ! Cleanup the “‘original’’ NAM block 
¢ ote BEGIN 
64 dbg$rel_ menor -dbg$gb_T tse); 
5 $e9 dbgsrel-memory (bg ab. logtsr); 
O68 dbg$gb_Togfsr = .te 
ret dbg$gb_logfse = .temp_ "tees 
9 651 ! Release the buffer that holds the log file spec. Since this 
360 $36 ! is @ counted string we have to adjust the address to free 
re 654 IF .fns NEQ 0 
“¢ 655 THE 
44 626 dbg$rel_memory(.fna-1); 
545 65 END; 
546 658 END; 
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-EXTRN SYSSCLOSE, SYSSPARSE 


OFFC 00000 ENTRY meal _LOG, Save R2,R3,R4,R5,R6,R7,RB,RO,- = 1432 
= gf O08 Ce OPENED. LOG = 1472 
SA 90000006 0 0000 MOVE § DBGSGB"DEF_OUT. LOG_TEMP : 1476 
9900 6 94 OF CLRB © DBGS$GB~DEF “OUT t 14677. 
00000006 if 16 ist bacsci- “LOGFAB+2 + 1482 
© scocoonne dt BH BHRIE 18: BOM Ts oreneo tpg 
33 000000006 00 09 ° g MOVL DBGSGL eNOGFAB S44, FNA + 1487 
6E 900000006 0 0 MOVE DBGS$GL“LOGFAB+52, FNS + 1488 
00000006 00 9F 00 PUSHAB DBGSGL OGFAB + 1490 
000000006 Q 1 Ff 0 CALLS at sh CLOSE : 
Q DO 00 MOVL 4 TAT : 
4 E 9040 BLBS STATUS, 4$ + 1491 
000000006 09 : 0043 Ist DBGSGL_ LOG_BUF + 1496) 
18 AE 000000006 06 98 004 MOVZ2BW DBGSGL_LOGFAB+52, MSG_DESC : 
1C AE 000000006 0 0g 0053 MOVL B6S6L - LOGFAB+44, MSG-DESC+4 ; 
18 AE 000000006 9 98 005D 2$: MOVZBW DBGSGL -LOGEAB+S3, MSG_DESC : 
1¢ AE 000000006 00 p 0065 MOVL  DBGSGL“LOGFAB+48, MSG-DESC+4 ; 
7E 000000006 00 7D 00060 3s: MOVG DBGSGL~LOGFAB+8, -(SPY + 1498 
20 AE 9F 00074 PUSHAB MSG. DESC + 1497 
gt DD 00077 PUSHL #1 3 
00021058  8F OD 00079 PUSHL #135256 : 
000000006 00 05 FB 0007F CALLS #5, LIBSSIGNAL : 
18 DD 0086 4$: PUSHL #2 4 : 1503 | 
000000006 90 gt FB 0088 CALLS » DBGSGET MEMORY F 
C mMOVCS # (SP) # 6. (TEMP_NAM) : 1 
0060 8F 00 ra 4 00 009 5 no: | 0, #9 + 1504 
$6 6003 BF BO 009A MOU 424578, (TEMP_NAM) ; | 
E 4 F 9A O009F MOVZBL : 1505 
000000006 00 1 FB 0003 CALES’ #1. DBGSGET_MEMORY : | 
B 0 p OAA MOVL RO. TEM : 
40 8F 9A OOOAD MOVZBL #64, -(S > 1506 
000000006 Q os BI CALLS #1, “DBGSGET MEMORY : 
0 D B8 MOVL RO, PFs : 
Cc (fb 8 D BB MOVL Tea. Wits 2(TEMP_NAM) : 150 
A6 BF MOVL TEP FSR, 4(TEMP_RAM) : 150 
A A 1 8E C3 MNEGB TEMP NAM) : 150 
; Ab 1 ¢ MNEGR #}. a ttEne : 151 
0000008 G 6 D ¢ MOVL §§_TEMP_NAM BaescL LOGFAB+40 : 151 
4 000000006 D D MOVL DBGSGL_LOG OCD_NAM_PT : 151 
6 D MP_NAM, DBG$G OGNAR : 151 
G A QO0EO 5$: BICB2 #2, BBGSGL_LOGFAB+ 31 
G 8 OO0E BISB 4 + DBGS$GL~LOGFAB+4 31 
000000006 A EE BICB DBGSGL “LOGE ABS? 31 
MOVL L_LOG~BU : 
000000006 F3 mov pBése OG" BUF , 1 
O16E 3 FE BRW $ ; 
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“Se 
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990000006 00 01 OA . 101 6$: MOVAB 1(RO), : 1538 
© 9 500000006 : ROVE, , {RO}, DBGSEL _COGFAB+S t 1829, 
000000006 1 Ff 1 CALLS ‘i. SUSSPARSE : | 
08 11 MOVL RO argeATYS : 
5 1 " BLBC STAT + 1550 
01 1 001 BRW ; 
53 99 0006 DO 00126 7$: MOVL beesGL _LOGFAB+8, STS : 1560) 
9 G DO 0012D MOVL §§ DBGS$GL~LOGFAB+12, STV + 1561 
0000006 p , ist G$GL~ “tog _BUF + 1562 
18 AE 900000006 1 ¢ MOVZBW DBGS$GL_LOGFAB+52, Ms $6_DEsC : 
1C (AE G : 146 ROVL BCS6L- LOGFAB+44. MSG-DESC+4 ; 
18 AE 9000006 16e 8$: MOVZBW DBGSGL_LOGFAB+53, MSG_DESC ; 
iC AE 00000006 D 13 MOVL DBGSGL“LOGFAB+48, MSG-DESC+4 : 
0 . 5 O15 98: BLBS pe LOG, 10$ ; 1564 
+3 DD Bea 10$:  PUSHL ie + 1565 
000000006 00 9} re He CALLS fi, BBCSREL MEMORY 3 
000000006 00 on FB a CALLS r SBGSREL_MEMORY F 
000000006 00 a. 178 CALLS BG REL. MEMORY ; 
000000006 00 4 pO 0017F MOVL OLb _PTR; DBGSGL_LOGNAM : 
4 D4 1 CLRL OLD“NAM“PTR’ : | 
000000006 000000006 0 DO 001 MOVL § DBGSGL_COGNAM, DBGSGL_LOGFAB+40 ; 
000000006 p0 019 MOVL FNA, DBGSGL_LOGFAB+44~ : | 
006 6f 0 0019A VB —s« ENS. DBGSGL~LOGFAB+52 ; 
00000006 03 88 OO1A1 BISB2 #3, DBGS$GL_COGFAB+7 ; 
000000006 be Bh O1As BICBe i DBGSGL—LOGF AB+4 3 | 
0000v 1 F 0182 CALLS SETUP_LOG : | 
* 900000006 09 > aH Ist Bt LOG_BUF : 
10 E 20000000 78 if MOVZBW DBGSGL_LOGFAB+52, MSG_DESC ; 
14 AE itd 00 ICA ROVE g $GL“LOGFAB+44, msc- DESC +4 ; 
10 00000006 98 104 11%: MOVZBW DBGSGL_LOGFAB+53, MSG_DESC : 
14 he 00000006 0 5 106 vies ROVL pecsor- LOGFAB+48. MSG~DESC+4 ; 
1 168  —«BNEG . : 
1 6 DO OO1EA MOVL  § DBGSGL_LOGFAB+8, STS : | 
3p titdaittts 3 Fh ROVE bBG GL “tOGF ABST, STV ; | 
51 900000006 DO OO1FA 13$: MOVL  #DBGSGL_LOGRAB+8, STS F 
0 000000006 D 1 MOVL § DBGSGL“LOGRAB+12, STV F 
1 be atsen pute are Sie 
18 AF F C PUSHAB MSG_DESC ; 
DD F PUSHL @# : | 
000210A0 BF DD 00211 PUSHL #135328 : 
00000006 5 F 17 CALLS #5, LIBSSIGNA : | 
00000006 >A 90 i 15$: ROVE _TEMP, DBGSGB_DEF_OUT a sea’ 
000000006 00 04 5 16$:  CLRL DBGSGL_LOGFAB+44 > 1569. 
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000000006 
000000006 
000000006 
000000006 
000006 
00¢ 

800 0006 
00000006 
0000Vv 


1 
1 
1 
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so £oO 


00000006 


20 
000210F8 
accatate ° 

4 


08 


ovNIeA OOOCOWUO 
Won OOOMOO 


So 
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SO "99010 F QOAMMOMMNOMNOMNOVIMN NOOO FS OO" 90 $9 Fungo FP OOO FP OOO 


000000006 


AE 000000006 
AE 000000006 


AE 000000006 


AE 000000006 
01 08 
53 000000006 
52 000000006 
53 000000006 
36 000000006 
0 
00 

00 

00 

0 

0 


0 000000006 


} 


CF 
64 
000000006 


AE 00000006 
AE 000000006 


oc 
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12 


as 
0D 17$: 
bp 

0D 8 

0D 4 

fF 4 

08 ef 18$: 
5 Seat 
# Be sae 
F 2 " 
08 9037 
BT 90370 
8 0 be : 
98 90 

11 3 

98 33 9A 228: 
00 002A2 

D1 OO2ZAA 238: 
is 09 af 

06 99286 
B0 0038 
00 00 cb 243: 
0? 02C 

GB O02CE 258: 
0D S D4 26$: 
FB 06 

DD 00200 

FB O02DF 

DD 026 
fe 8 EF 

04 002F 

p Hf 
He 

11 

BBs 
44 1F 

EB O0se? 
i He 
i ; 
9 44 27%: 
) 4C 
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VAX-11 Bliss-3 
DISKSVMSMASTER 


DBGSGL_LOGFAB+52 
BoeS6t L Os BUF 


6 
#5, LIBSSIGNAL 


6$GL_LOGNAM, RO 
th tt 

#2, DBGSGL_LOGFAB+7 
#2, DBGSGL-LOGFAB+4 
#1, OBGSGL~LOGFAB+7 


B_TYPE 

#T, SETUP_LOG 
RO, STATUS 
TAtus, 21$ 


BgS6L_L06_BuF 


DBGSGL_LOGFAB+52, MSG_D 
BGSGL_LOGFABS44, SGD 


DBGSGL_LOGFAB+53, MSG_DE 
it: nar shemale MSG_DE 


ny? 
DBGSGL_LOGFAB+8, STS 


DBGSGL“LOGFAB+12, STV 


DBGSGL_LOGRAB+8, STS 


DBGS$GL-LOGRAB+12, STV 


QPENED_LOG, 26$ 
es 


TEMP NAM 

#1, BBGSREL_MEMORY 
MP_FSR 

#1, BBGSREL_MEMORY 

TEMP_FS 

Ap BBGSREL _MEMOR 


TY 
#1, SETUP_LOG 
1$ 

$ci_LoG_auF 


DBGSGL_LOGEABSS2, MSG_ 


$GL“LOGFAB+4 


DBGSGL_LOGFAB+53, MS 
DBGSGL_LOGFAB+48, MS 
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Y 
NAM_PTR; DBGSGL_LOGNAM 


A i 
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— 
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01 oc A D4 4 288: cnet YPE_B, #1 ; 
1 006 D 1 BONE —BESGL_LOGFAB+8, STS ; | 
34 Soooo000g p 1 MOVE gSaL=LOGFABS2, STV : 
1 G D A 29$:  MOVL  DBGSGL_LOGRAB+8, STS : 
2) ivddiitts 44 1 MOVL pecsct-tOcRABSTS, STV : 
DD 00378 308 PUSHL STV : 
BD 7A PUSHL STS : | 
18 AF F 0037C PUSHAB MSG_DESC : 
00021080 BF bp ° gi PUSH #135328 : | 
000000006 00 5 FB er CALLS #5, LIBSSIGNAL F 
000000006 00 3A 70 0 i 31$: HOVE G_TENP, DBG$GB_DEF_OUT ee 

0 0000006 00 ps 0397 32$ CLRL DBGSGL_LOGFAB+44 : 16 $ 
0000006 00 94 00 2 CLRB © DBGSGL“LOGFAB+52 + 1628 
000000006 00 04 003A CLRL_  DBGSGL L06_BUF + 1629 
000000006 00 1 BA 003A9 BICB2 #1, DBG$GL-LOGFAB+7 : 16 0| 
: DD 00 80 33$ PUSHL STV + 1633 

53 DD 0038 PUSHL ; 

20 AE 9F 00384 PUSHAB MSG_DESC ; 

01 DD 0387 PUSHL : 

000210A0 8F DD 00389 PUSHL #135328 : 

000000006 00 05 FB 03BF CALLS #5, LIBSSIGNAL ; 
000000006 90 5A 90 003C6 34$: MOVE LOG TEMP, DBGS$GB_DEF_OUT + 1638 
F 59 €9 003CD BLBC OPENED_LOG, 35$ + 1639 
54 DD 00300 PUSHL OLD_NAM_PTR + 1645 

000000006 00 1 FB 00 22 CALLS #1, DBGSREL_MEMORY : 
000000006 00 DD 003D PUSHL DBGS$GB_LOGFSE + 1646 

000000006 00 1 FB 0030F CALLS #1, DBGSREL_MEMORY F 
000000006 00 DbD 00366 PUSHL DBGSGB LOGF R : 1647 

000000006 00 01 FB 00 EC CALLS #1, DBGSREL_MEMORY : 
000000006 00 5 00 003F MOVL TEMP_FSR, DBG$GB_LOGFSR : 1648 
000000006 00 5B DO OO3FA VL _- TEMP"FSE. DBGS$GB~LOGFSE > 1649 
6— 95 00401 TSTB —s ENS > 1654 

OA 13 00403 BEQL 35$ : 
FF A? 9F 00405 PUSHAB =1(FNA) : 1656 

000000006 00 01 FB 00408 CALLS #1, DBGSREL_MEMORY ; 
04 0040F 35$ ET : 1658 
z Routine Size: 1040 bytes, Routine Base: DBGSCODE + 0649 
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ROUTINE setup_log (block_type) = 


! FUNCTIONAL DESCRIPTION: 
! This routine creates and opens the log file. 


' 
FORMAL PARAMETERS: 
block. type = indicates whether error to report is for 
FAB ( = 1) or RAB ( = 2) 


FEREES 


oO 
cccr 
a ee ee ee ee ed ed ed ed ed od dd od od 
oa 
oO 
uw 
PORIROPOPOPIPOPONOPORONINONONONUINOPONIPIPONIPUPUPINININININONINIIII 0 a at tt tt ts 


SF 


—> 3 a td 
ooo 


FUSVSVSUSUSVSISISISIS 
PUPAPSIASIVIVIVUIVIT SE 
OWDONOUS WOOO 


o 


SoU 


tateoes INPUTS: 


status; 


i 

: 

: 

: 

66 The name of the log file to be opened 

386 gry i IMPLICIT OUTPUTS: 
20) ore The resultant LOG file-spec as resolved by RMS 
265 674 1 | ROUTINE VALUE: | 
r¢) of? Returns the RMS status code if there's an error, otherwise returns TRUE 
ee er? 1 i SIDE EFFECTS: | 
4 or8 } The log file is created and a RAB connected to it. 
569 680 1 
2/0 ret BEGIN 
578 gas LOCAL | 
57 684 
574 85 
: 5 


dbg$gl_lograb frebst_teb) = dbg$gl_logfab; 
-b ock._ type = 2; 
Status”= SCONNECT (RAB = dbg$gl_lograb); 


aaa a a ak ak ed et td = a = Las = = Las = I 


S888 


6 
7 686 dbg$gi_log_buf : REF VECTOR C,BYTE); 
% 687 — 
577 688 
578 689 ZIF dbg_mod2 
57 690 ZTHEN 
580 691 $fao_tt_out ("setup esa 1 !AD', .dbg$gl_lognam{(nam$b_esl], .dbg$gl_lognam(nam$l_esaJ); 
38! 69 gige.tt_out (‘rsa 1 !AD', .dbg$gi_LognamCnam$b_rsl),-dbg$gl_lognamEnam$l_rsal); 
ons 694 
aac 69? ! See if a log file is already open 
586 697 IF .dbg$gl_logfab Cfab$w_ifi] NEQ 0 
587 698 THEN 
588 699 RETURN (TRUE); 
589 700 
590 701 -block_ type = 1; 
331 208 status = SCREATE(FAB = dbg$gl_logfab); 
298 704 IF NOT .status 
594 705 THEN 
595 706 RETURN (.status) ; 
596 707 
597 L 1708 ZIF dbg_mod2 
598 U 1709 ZTHEN 
599 U 1710 $fao_tt_out(" about to connect"); 
600 711 ZF I 
ne 
71 
714 
715 
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v04-000 14- =3ep-1986 03:35:88 DISKSVMSMASTER: CdEauG. SRCJDBGMOD. B32. ; mf | 


Bir Gb. mod2 
zyee tt out (" after connect, status : !XL' , .status); 
afi ~ 


S33 
uw 
cccr 


Ok tk ht 
SSNS 


RorRoRoPoONoTononon 


o_tt_out("block_type xi? » block type); 
if NOT .status 
RETURN (.status) ; 


3S 


NOVUSWN—OOW 


: Ap te A put out the title Line here 
RETURN (TR 


Sete Ge Se Ge Ge Ge Ge Ge Ge Se Gee 
i) tb 4 


PAPAS 
ONAOUEWN—"OOONO 


> 4 4) 4 4 9 9 


—_ 


-EXTRN SYSSCREATE, SYSSCONNECT 
0004 00000 SETUP_LOG: 
«WORD ‘ 


RD Save R2 : 1659) 

52 000000006 00 i: 00002 HOVAB -DBGSGL _LOGFAB, R2 F 

02 A2 85 00009 TSTW  DBGSGL-LOGFAB+2 + 1697) 

2B 12 0000C BNEQ : | 

04 BC 01 DO 90005 MOVL #1, @BLOCK_TYPE : 1701) 

52 Dp 9001 PUSHL > 1702 | 

000000006 00 gi FB 00014 CALLS #1, SYSSCREATE : | 
E 0 9 00018 BLBC STATUS, + 1704) 

000000006 00 62 E OO01E MOVAB DEGSGL LOGFAB, DBG$GL_LOGRAB+60 : W218 
06 BC. 02 00 000 MOVL aBCOCk_TYPE : 1713, 
000000006 00 9F 00029 PUSHAB DBéseL LOGRAB + 1714) 

000000006 00 9 FB 0002F CALLS SYSSCONNECT 3 
03 0 €9 000 BLBC etATo S, 2$ : 1721, 

50 01 DO 00039 1s: MOVL #1, RO : 1727) 

04 0003C 2$: RET : 1728 | 


; Routine Size: 61 bytes, | Routine Base: DBGSCODE + 0A59 | 


* 
me a a a a a a Os Os Os Os Os Os Os Bs Be Be Be Se Ge Ge Be Fe Fe Se Se Ge Se Fe Ge Se Se Se Se Se Oe Oe Se Se Se Se Se Se Se Se Se Sete Se Se Se Ge Se Se Se Seas 


IWAI.AIAIAIPOPOPOPOPOPOPOPuf~uens — 


WN —ODODONOUSWN—O” 


PAEAEARAAAAAAEAAAAAAAAAAO 


WANA 


RARAAAAAARDRE EER ERE RE 


SeSereees 


& 


—6 —) se ot ot ee ee ee ee ee ee ee Le ee eS Ss 
ANNAN 
Vrwn—O0o 


AOA 


WAWWNINWIAWwind 


MEUM 9 OONAUE WN $0 ODNOAUE WN" OOONOULSWN—O0 


PAA AUIS BB EEE EEE 


AOA 


o 


AAA ALAA IPPYPIPYPINYIPYNPINININPYIAINPININIPINININPINIDINIRD <9 0 a tt I 


oo 


me ee a a ee a tk ed ed = = = 2 = = 


13 
1b-Sep-1986 01:34: VAX=11 Bliss-32 V4.0-742 Page 59 
en eeen18Re P3:T3:85 NT cdumehaStenccheauc. secspecmoo.es204°* 2c; 


GLOBAL ROUTINE dbg$verify_out (parse_stg_desc) : NOVALUWE = 


! Functional Description: 
Routine figures out whether or not to verify input commands by 
! consulting the command input stream. It always updates dbg$gb yoreers even 
if VERIFY is not set. This is so we can support an imbedded SET OUTPUT VERIFY 
in @ command sequence 


' Formal Parameters: 
parse_stg_desc -- The input buffer from which we are taking commands 


! Implicit jneuts: 
4 dbg$gl_cishead : The head of the command input stream 
dbg$gb_verptr : nag pointer to the beginning of the command to 
e verifie 


Outputs: 
None. 


spear Value: 


Side Effects: 
An input command is ‘‘VERIFYed"’ (copied) to the terminal and/or log file 


BEGIN 
MAP 
parse_stg_desc : REF BLOCK C,BYTE); 
LOCAL 
prev_link : REF cis$Llink, 
ok_to_verify, 
buf_len; 


! get address of previous Link in cis 
prev_link = .dbg$gl_cishead Ccis$a_next_link); 
case -dbg$gl_cishead(cis$b_input_type] FROM cis_dbg$input TO cis_acbuf OF 


Ccis_dbg$input): ok_to_verify = FALSE; 
Ccis_rab): ff goreu.t ink Ccis$b_input_type] NEQ cis_inpbuf 
ok_to_verify = TRUE 
ELSE 
BEGIN 


LOCAL pre_prev : REF cis$link; ‘ 
re_prev = prev Link Ceis$a_next Link]; —— 
it eghreaprev cisSb_input_typé] NEG cis_dbgSinput 


ok_to_verify = TRUE 
ELSE 


2 13 
dB 6-Sep 4 01:34: VAX-11 Bliss-32 V4.0-742 Pe e 60 
v04 4-S$ ety 7 93: 217: ‘6 DISKSVMSMASTER: (DEBUG. SRCJDBGMOD.B32; 1 s (24) 
3: 167 17 ok_to_verify = FALSE; 
21) a 
: 167 17 Ccis_inpbuf): IF .prev_link Ccis$b_input_type] EQL cis_dbgSinput 
>; 1680 1790 THEN 
; 1681 1791 ok_to_verify = FALSE 
: 1086 1738 ELSE 
: 168 179 ok_to_verify = TRUE; 
> 1684 1794 
> 1685 1795 Ccis_acbuf): ok_to_verify = TRUE; 
> 1686 1796 
3 be $4 1797 TES; 
3 16 1798 
3; 1689 1799 ! buf_len is the number of characters for VERIFY to print from the 
5 1on9 1390 i command input buffer 
: 196 1806 buf_len = .parse_stg_desc(dsc$a_pointer] - .dbg$gb_verptr; 
3: 1694 1804 ! Exclamation point (!) is mapped as end-of-Line by the Lexical 
3; 1695 1805 i analysers. In order to capture comments, ed inclusion in VERIFY 
3 1696 1806 i reporting we must check each EOL for °'! 
; 1697 1807 
3; 1698 1808 
; 1699 1809 IF .dbg$gb_verptr C.buf_len - 1] E tee 
; 1709 1319 pe -parse_stg_desc [dSc$w Tengtha ano %x'8000") EQL 0 
3 a4 a buf_len = .buf_len + .parse_stg_desc (Cdsc$w_length] ; 
3: 1704 1814 Z > “bbgsab.de det art Cout_verify] 
3; 1705 1815 D .bu R 1 
: 1706 1816 AND .ok_fo vk. 8 
3; 1707 1817 THEN 
3 1 1318 $fao_tt_out (* !AD',.buf_len, .dbg$gb_verptr); 
3; 1710 1820 GbgSab_verptr = .parse_stg_desc [dsc$a_pointer]; 
3 1711 1821 RETURN 
: 1712 1822 1 END; 


-PSECT DBGSPLIT,NOWRT, SHR, PIC,0 


4 . 
44 41 21 ASCII \ SADN : 


-PSECT DBGSCODE,NOWRT, SHR, PIC,0 


o0s¢ 0000 .ENTRY DOBGSVERIFY_OUT, Save R2,R3.R4.R5 ; 1729 
55 900000006 99 F 900 MOVAB DBG$GB_VERPTR, R : 

1 000000006 00 oD MOVL BGSGL =ELSHEAB, R1 : 1768 
Al D0 00010 MOVL (R1), PREV 4! NK ; 

6 02 Al BF 00014 CASEB 2(R1). #0, B : 1770 
000A 0020 0019 1$ WORD a1 : 
$-1$.- ; 


[eae 


02 02 
50 68 
02 
. 
56 
51 04 Ae 
21 FF AI 


: 
19 000000006 
01 
11 


00000000° 
04 


FPOMAUIMN "NOI AOPKOLUNG POOMO Fr COOrr- r— 
NWT OWE (O LNMNGAN SP OOM “WW FOONOO LOO 


000000006 00 
65 


; PSECT SUMMARY 
; Name Bytes 

: DBGSPLIT 53 NOVEC,NOWRT, 
> DBGSCODE 2840 NOVEC.NOWRT. 


Library Statistics 


Oo TOVIOM—-OMOwW-@- OorcI77o-9 - 0 09 - o— 
ODT OU ODOM OYUN "WOOO Fv *Wnon—— 


; Routine Size: 130 bytes, Routine Base: DBGSCODE + 0A96 
3: 1713 1823 

3; 1714 1824 ND 

3 1715 1825 0 ELUDOM 


if 13 
le-Sep- 


DONE OS FNM ONS OVOD Os 


SII AAAA MMMM 


VToomMmna 


Attributes 


oun = 
ren 


~“N 
wr 


SHR, 
SHR, 


1986 92:39:66 DIekSUMGMAS TERS CoEBOG. shcIoBono0.832 


+ Ht 
CMPB ggPREV_ LINK), #2 


MOVL (PREV LINK), PRE_PREV 
TSTB (PRE_PRE 


BEQL «=s4$ 

BRB 2 

TSTB (PREV_LINK) 
BNEQ 6 

CLRL = OK_TO_VERIFY 
BRB 

MOVL OK_TO_VERIFY 


MOVL Ht STG-DESC, R2 
MOVL DBG GS68 tatty RO 


SUBL3 RO, Bu UF _LEN 
CMPB Re teur wil’ ROJ, #33 
BNEQ = 7$ 
TSTw = (R2) 
BLSS 6s. 7$ 
MOVZWL (R2), R4 
ADDL2. R4, BUF_LEN 
LBC DBG$GB_BEF oUuT+2, 8$ 
CMPL  BUF_LER, #T 
BLEG 43s 8S. 
BLBC  OK_TO_VERIFY, 8$ 
PUSHL RO 
PUSHL BUF_LEN 
PUSHAB P 
CALLS #3, DBGSFAO_OUT 
MOVE 4(R2), DBesce. VERPTR 


-EXTRN LIBSSIGNAL 


LCL, 
LCL, REL: CON, 


Pqse 


6- -1984 VAX=-11 Bliss-32 
1b-Sep- 1946 9}: i$: 86 Sec SunenAgtERs cbtade. se SRCIDBGMOD.B32; 

3 eecocanrenes Symbols Seen on ee Pages Processing 

: File Total Loaded Percent Mapped Time 

: SUA :FSYSLIBIL 1B. 32:1 18619 4 100 :01.9 

; : (DEBUG.OB étRutper 43 31 3g Q Q $ 09:00:3 

; SDUA :PDEBUS: OB DBGLIB.L32; 154 5 97 :02. 

Z : (DEBUG.OBJ JDSTRECRDS.L32;1 ae , 0:09 

: 255$DUA DEBUG.0BJJDBGMSG.L32;1 3 1 6 : 0:3 

; "Bupoae: DEBUG .0BJ JDBGGEN. L333} $8 36 24 $8 0:00. 


H COMMAND QUALIFIERS 

; BLISS/CHECK=(FIELD, INITIAL OPTIMIZE) /LIS=LIS$:0BGMOD/OBJ=0BJ$:DBGMOD MSRC$:DBGMOD/UPDATE=(ENH$:DBGMOD) 
3 ig 00 ¢ °. + 653 data bytes 

5 Elapsed Tine: 

3; Lines/CPU Min: 

3; Lexemes/CPU-Min: 

: { Used: 375 ia 

3; Compilation Complete 


Page 


285 


a 
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